语法: 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;
转载于:https://www.cnblogs.com/mashang/archive/2009/03/24/1420853.html