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