Delphi - TStringList 用法详解 - Powered by Discuz! Archiver

林萧發表於 2020-11-4 15:00:00

Delphi - TStringList 用法详解

delphi 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;
 
<hr>
 //读入字符串 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); //aaa   List.Free; end;
<hr>
 //置换分隔符 var   List: TStringList; begin   List := TStringList.Create;   List.Delimiter := '|';   List.DelimitedText := 'aaa|bbb|ccc|ddd';   ShowMessage(IntToStr(List.Count)); //4   ShowMessage(List); //aaa   List.Free; end;
<hr>
 //类似的哈希表操作法 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); //bbb   ShowMessage(List.ValueFromIndex); //222   ShowMessage(List.Values['bbb']); //222 //ValueFromIndex 可以赋值:   List.ValueFromIndex := '2';   ShowMessage(List); //bbb=2 //可以通过 Values 赋值:   List.Values['bbb'] := '22';   ShowMessage(List); //bbb=22   List.Free; end;
 
<hr>
//避免重复值 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;
 
<hr>
 //排序与倒排序 {排序函数} function DescCompareStrings(List: TStringList; Index1, Index2: Integer): Integer; begin   Result := -AnsiCompareText(List, List); end; procedure TForm 1.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; 
来源：https://www.cnblogs.com/sunylat/p/13925993.html

頁: [1]

琼殿技术论坛's Archiver

Delphi - TStringList 用法详解