TStringList 常用方法与属性

TStringList 常用方法与属性:
  2  var
  3 List: TStringList;
  4 i: Integer;
  5 begin
  6 List := TStringList.Create;
  7 List.Add('Strings1');           {添加}
  8 List.Add('Strings2');
  9 List.Exchange(0,1);             {置换}
10 List.Insert(0,'Strings3');      {插入}
11 i := List.IndexOf('Strings1');  {第一次出现的位置}
12 List.Sort;                      {排序}
13 List.Sorted := True;   {指定排序}
14 List.Count;                     {总数}
15 List.Text;                      {文本集合}
16 List.Delete(0);                 {删除, 0是第一个数据}
17 List.LoadFromFile('c:/tmp.txt');{打开}
18 List.SaveToFile('c:/tmp.txt');  {保存}
19 List.Clear;                     {清空}
20 List.Free;                      {释放}
21 end;
22
23 //读入字符串
24 var
25 List: TStringList;
26 begin
27 List := TStringList.Create;
28 List.CommaText := 'aaa,bbb,ccc,ddd';
29 //相当于: List.Text := 'aaa' + #13#10 + 'bbb' + #13#10' + 'ccc' + '#13#10' + 'ddd';
30
31 ShowMessage(IntToStr(List.Count));  //4
32   ShowMessage(List[0]);  //aaa
33
34 List.Free;
35 end;
36
37 //置换分隔符
38 var
39 List: TStringList;
40 begin
41 List := TStringList.Create;
42 List.Delimiter := '|';
43 List.DelimitedText := 'aaa|bbb|ccc|ddd';
44
45 ShowMessage(IntToStr(List.Count));  //4
46   ShowMessage(List[0]);  //aaa
47
48 List.Free;
49 end;
50
51
52 //类似的哈希表操作法
53 var
54 List: TStringList;
55 begin
56 List := TStringList.Create;
57
58 List.Add('aaa=111');
59 List.Add('bbb=222');
60 List.Add('ccc=333');
61 List.Add('ddd=444');
62
63 ShowMessage(List.Names[1]);  //bbb
64   ShowMessage(List.ValueFromIndex[1]);  //222
65   ShowMessage(List.Values['bbb']);  //222
66
67 //ValueFromIndex 可以赋值:
68   List.ValueFromIndex[1] := '2';
69 ShowMessage(List[1]);  //bbb=2
70
71 //可以通过 Values 赋值:
72   List.Values['bbb'] := '22';
73 ShowMessage(List[1]);  //bbb=22
74
75 List.Free;
76 end;
77
78 //避免重复值
79 var
80 List: TStringList;
81 begin
82 List := TStringList.Create;
83
84 List.Add('aaa');
85
86 List.Sorted := True;  //需要先指定排序
87   List.Duplicates := dupIgnore;  //如有重复值则放弃
88
89 List.Add('aaa');
90
91 ShowMessage(List.Text);  //aaa
92
93 //Duplicates 有3个可选值:
94   //dupIgnore: 放弃;
95   //dupAccept: 结束;
96   //dupError: 提示错误.
97
98 List.Free;
99 end;
100
101 //排序与倒排序
102 {排序函数}
103 function DescCompareStrings(List: TStringList; Index1, Index2: Integer): Integer;
104 begin
105 Result := -AnsiCompareText(List[Index1], List[Index2]);
106 end;
107
108 procedure TForm1.Button1Click(Sender: TObject);
109 var
110 List: TStringList;
111 begin
112 List := TStringList.Create;
113
114 List.Add('bbb');
115 List.Add('ccc');
116 List.Add('aaa');
117
118 //未排序
119   ShowMessage(List.Text);  //bbb ccc aaa
120
121 //排序
122   List.Sort;
123 ShowMessage(List.Text);  //aaa bbb ccc
124
125 //倒排序
126   List.CustomSort(DescCompareStrings);  //调用排序函数
127   ShowMessage(List.Text);  //ccc bbb aaa
128
129 //假如:
130   List.Sorted := True;
131 List.Add('999');
132 List.Add('000');
133 List.Add('zzz');
134 ShowMessage(List.Text);  //000 999 aaa bbb ccc zzz
135 end;