StrUtils.DupeString 反复字符串

举例:

---

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

StrUtils 单元下的公用函数目录

---