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 单元下的公用函数目录

---