在Delphi中生成重复字符串可通过StringOfChar和DupeString两个函数实现:
1、 StringOfChar函数
功能:重复单个字符生成字符串
语法:StringOfChar(Ch: Char; Count: Integer): String
示例:生成10个'A'的字符串
pascalCopy Code
s := StringOfChar('A', 10); // 结果:'AAAAAAAAAA'
2、 DupeString函数
功能:重复整个字符串生成新字符串
语法:DupeString(const AText: string; ACount: Integer): string
需引用StrUtils单元
示例:重复"ABC"5次
pascalCopy Code
s := DupeString('ABC', 5); // 结果:'ABCABCABCABCABC'
对比与建议
性能:StringOfChar用汇编实现,重复字符时效率更高
灵活性:DupeString支持多字符重复,适用复杂场景
格式化应用:两者均可用于补零或空格对齐
// 补零示例(10位长度,不足前补零)
s := '123.45';
Result := StringOfChar('0', 10 - Length(s)) + s; // '0000123.45'