引用单元：System
StringOfChar函数
原型：
function StringOfChar(ch: AnsiChar; Count: Integer): AnsiString; overload;
function StringOfChar(ch: WideChar; Count: Integer): UnicodeString; overload;
功能：返回一个包含计数字符的字符串
例如：
S := StringOfChar(‘A‘, 5); // ‘AAAAA‘ 返回5个连续的A
Delphi System.StringOfChar函数 - 返回一个包含计数字符的字符串
原文：https://www.cnblogs.com/guorongtao/p/12201314.html