有无生成空格函数，Like VB的space(1)?

Question

var  S: array[0..79] of char;
begin
  { Set to all spaces }
  FillChar(S, SizeOf(S), Ord(' '));
end;

Answer 1

据我所知是没有的
不过也可以实现的
var
  a:array[0..3] of char;fillchar(a,sizeof(a),$20);

Answer 2

━━━━━━━━━━━━━━━━━━━━━  
首部  function DupeString(const AText: string; ACount: Integer): string; $[StrUtils.pas
功能  返回字符串AText的ACount个复本
说明  当ACount为0时返回''
参考  function System.SetLength
例子  Edit3.Text := DupeString(Edit1.Text, SpinEdit1.Value);
━━━━━━━━━━━━━━━━━━━━━  //Demo
//....
uses StrUtils; //for Delphi6
//....
DupeString(#32, 1); //like Space(1)
//....