function GenSameChar(AChar: Char; ANum: WORD): String; var i: integer; begin result:=''; for i:=1 to ANum do result:=result+AChar; end;参数AChar是字符,ANum是希望该字符重复多少遍
Delphi现成的: function StringOfChar(Ch: Char; Count: Integer): string; 用Count个Ch合成一个字符串。
还有一个差不多的: function DupeString(const AText: string; ACount: Integer): string; 用ACount个AText合成一个字符串。
var i: integer;
begin
result:='';
for i:=1 to ANum do result:=result+AChar;
end;参数AChar是字符,ANum是希望该字符重复多少遍
function StringOfChar(Ch: Char; Count: Integer): string;
用Count个Ch合成一个字符串。
function DupeString(const AText: string; ACount: Integer): string;
用ACount个AText合成一个字符串。