请问DELPHI中有没有输入指定空格数的函数

Question

请问DELPHI中有没有输入指定空格数的函数？如VB中的Space()。如果有麻烦给我格式或用例。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  s :string;
begin
  s :='aa' +Space(6)+'bbb';
  showmessage(s);
end;function TForm1.Space(Num: integer): string;
var
  i :integer;
begin
  for i :=0 to Num do
    Result :=Result+#32;
end;

Answer 2

难道DELPHI没有自带的函数吗？

Answer 3

StringOfChar(' ',5);
  StringOfChar('A',5);
Delphi没有提供专门的函数，不过这个函数更加强大

Answer 4

var str: String;Str := StringOfChar(' ', 10);

Answer 5

delphi 没有自带的函数，用上面的方法很好的，不一定非的自带的，自己写的也很不错的了。

Answer 6

function getSpace(Qty:integer):String;
   begin
      if Qty<>0 then
        Result:=dupestring(' ',Qty)
      else
        Reslt:='';
   end;