dupestring

StrUtils.DupeString - 反复字符串
举例:
--------------------------------------------------------------------------------

var
s: string;
begin
s := 'Delphi';
s := DupeString(s,3);
ShowMessage(s); //DelphiDelphiDelphi

end;

StrUtils.DupeString - 反复字符串
举例:
--------------------------------------------------------------------------------

var
s: string;
begin
s := 'Delphi';
s := DupeString(#32,3);
ShowMessage(s); //三个空格。可以改成取字符串部分字符不足补零
end;