Delphi中Tstringlist的常用方法

继承自Tstrings类，但可实例化使用，都是不可见组件，近似的看成数组操作。

procedure StringListControl;
var
    List:Tstringlist;
begin
    try
      List:=Tstringlist.create;
      List.Delimiter:='|'                                   //默认为 =
      list.add('AAA|BBB');                               //添加元素
      showmessage(list.names[0]);              //AAA
      showmessage(list.values['AAA']);         //BBB
      showmessage(list.valuefromindex[0]);//BBB

      list.add('ccc|ddd');
      list.exchange(0,1);                                //第0项与第1项交换
      list.insert(1,'ZZZ');                                //insert
      list.delete(3);                                       //delete
      list.sort;                                               //排序
      list.clear;                                               //清空
      list.loadFromFile('H:\111.TEXT');
      list.savetofile('G:\222.text');

    finally
      List.Free;
    end;
end;

排序仍然按照ASCII排，默认不排序。sort为升序，降序可直接调用函数 List.CustomSort(DescCompareStrings);