StringOfChar 与 DupeString -- 字符串的反复填充

语法:
function StringOfChar(Ch: Char; Count: Integer): string;
function DupeString(const AText: string; ACount: Integer): string;

说明:
StringOfChar :填充Count个Ch字符到字符串中，返回填充后的字符串。
DupeString   :填充ACount个AText字符串到字符串中，返回填充后的字符串。

StringOfChar 是反复 "字符" 成 "字符串" 的函数;
DupeString 是反复 "字符串" 成 "新字符串" 的函数;
StringOfChar 来自 System 单元, 可以直接使用;
DupeString 来自 StrUtils 单元, 使用时需要 uses StrUtils;

简例:
S := StringOfChar('A', 10); {S的值为'AAAAAAAAAA'}
S := DupeString('AB',5);    {S的值为'ABABABABAB'}

实例:
{TreeView的缩进输出}
var
  i: Integer;
  s: string;
begin
  Memo1.Clear;
  for i := 0 to TreeView1.Items.Count - 1 do
  begin
    s := StringOfChar(#9, TreeView1.Items[i].Level); {level是缩进级别}
    s := s + TreeView1.Items[i].Text;
    Memo1.Lines.Add(s);
  end;
end;