Tstringlist

//TStringList 常用方法与属性:
var
  List: TStringList;
  i: Integer;
begin
  List := TStringList .Create;
  List .Add( 'Strings1');           {添加}
  List .Add( 'Strings2');
  List .Exchange( 0, 1);             {置换}
  List .Insert( 0, 'Strings3');      {插入}
  i := List .IndexOf( 'Strings1');  {第一次出现的位置}
  List .Sort;                      {排序}
  List .Sorted := True;   {指定排序}
  List .Count;                     {总数}
  List .Text;                      {文本集合}
  List .Delete( 0);                 {删除, 0是第一个数据}
  List .LoadFromFile( 'c:/tmp.txt'); {打开}
  List .SaveToFile( 'c:/tmp.txt');  {保存}
  List .Clear;                     {清空}
  List .Free;                      {释放}
end;

---

//读入字符串
var
  List: TStringList;
begin
  List := TStringList .Create;
  List .CommaText := 'aaa,bbb,ccc,ddd';
//相当于: List.Text := 'aaa' + #13#10 + 'bbb' + #13#10' + 'ccc' + '#13#10' + 'ddd';

  ShowMessage(IntToStr(List .Count)); //4
  ShowMessage(List[ 0]); //aaa

  List .Free;
end;

---

//置换分隔符
var
  List: TStringList;
begin
  List := TStringList .Create;
  List .Delimiter := '|';
  List .DelimitedText := 'aaa|bbb|ccc|ddd';

  ShowMessage(IntToStr(List .Count)); //4
  ShowMessage(List[ 0]); //aaa

  List .Free;
end;

---

//类似的哈希表操作法
var
  List: TStringList;
begin
  List := TStringList .Create;

  List .Add( 'aaa=111');
  List .Add( 'bbb=222');
  List .Add( 'ccc=333');
  List .Add( 'ddd=444');

  ShowMessage(List .Names[ 1]); //bbb
  ShowMessage(List .ValueFromIndex[ 1]); //222
  ShowMessage(List .Values[ 'bbb']); //222

//ValueFromIndex 可以赋值:
  List .ValueFromIndex[ 1] := '2';
  ShowMessage(List[ 1]); //bbb=2

//可以通过 Values 赋值:
  List .Values[ 'bbb'] := '22';
  ShowMessage(List[ 1]); //bbb=22

  List .Free;
end;

---

//避免重复值
var
  List: TStringList;
begin
  List := TStringList .Create;

  List .Add( 'aaa');

  List .Sorted := True; //需要先指定排序
  List .Duplicates := dupIgnore; //如有重复值则放弃

  List .Add( 'aaa');

  ShowMessage(List .Text); //aaa

//Duplicates 有3个可选值:
//dupIgnore: 放弃;
//dupAccept: 结束;
//dupError: 提示错误.

  List .Free;
end;

---

//排序与倒排序
{排序函数}
function DescCompareStrings(List: TStringList; Index1, Index2: Integer): Integer;
begin
  Result := -AnsiCompareText(List[Index1], List[Index2]);
end;

procedure TForm1 .Button1Click(Sender: TObject);
var
  List: TStringList;
begin
  List := TStringList .Create;

  List .Add( 'bbb');
  List .Add( 'ccc');
  List .Add( 'aaa');

//未排序
  ShowMessage(List .Text); //bbb ccc aaa

//排序
  List .Sort;
  ShowMessage(List .Text); //aaa bbb ccc

//倒排序
  List .CustomSort(DescCompareStrings); //调用排序函数
  ShowMessage(List .Text); //ccc bbb aaa

//假如:
  List .Sorted := True;
  List .Add( '999');
  List .Add( '000');
  List .Add( 'zzz');
  ShowMessage(List .Text); //000 999 aaa bbb ccc zzz
end;