1 //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;
136