System.StringOfChar 反复字符

举例:

---

var
  s: string;
begin
  s := StringOfChar('G', 5);
  ShowMessage(s);  {GGGGG}
end;


var
  s: string;
begin
  s := StringOfChar(#65, 5);
  ShowMessage(s);  {AAAAA}
end;


var
  s: string;
begin
  s := StringOfChar(#19975, 5);
  ShowMessage(s);  {万万万万万}
end;

System 单元下的公用函数目录

---