引用单元：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