如何加空格

Question

有没有类似VB的那个Space 可以一次性在一个字符串中加入多个空格的函数

Answer 1

function Space(const Count: Cardinal): string;
begin
  Result := Format('%'+IntToStr(Count)+'s', [' ']);
end;速度比较快！

Answer 2

uses StrUtilsDupeString(' ',10)

Answer 3

const cntSpace = '   '

Answer 4

哦，在Count = 0时有错误的；
function Space(const Count: Cardianl = 0): string;
begin
  if Count = 0 then
    Result := ''
  else
    Result := Format('%'+IntToStr(Count)+'s', [' ']);
end;

Answer 5

DupeString(' ',10)
试，行