Delphi TStringList的用法

发布时间：2020-12-15 10:02:27 所属栏目：大数据来源：网络整理

导读：//TStringList 常用方法与属性: var ? List: TStringList; ? i: Integer; begin ? List := TStringList.Create; ? List.Add('Strings1'); ? ? ? ? ? {添加} ? List.Add('Strings2'); ? List.Exchange(0,1); ? ? ? ? ? ? {置换} ? List.Insert(0,'Strings3');

//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'); ? List.Add('eee='); ? List.Add('fff'); ? 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 ? ShowMessage(List.Names[4]); ?//eee ? ShowMessage(List.ValueFromIndex[4]); ?// ? ShowMessage(List.Values['eee']); ?// ? ShowMessage(List.Names[5]); ?// ? ShowMessage(List.ValueFromIndex[5]); ?// ? ShowMessage(List.Values['fff']); ?// ? 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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!