Delphi中TStringList类常用属性方法详解

2016-08-22 10:23:00来源:http://amcto111.blog.51cto.com/351775/1181502作者:kindao人点击



//TStringList常用方法与属性:varList:TStringList;i:Integer;beginList:=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;//读入字符串varList:TStringList;beginList:=TStringList.Create;List.CommaText:='aaa,bbb,ccc,ddd';//相当于:List.Text:='aaa'+#13#10+'bbb'+#13#10'+'ccc'+'#13#10'+'ddd';ShowMessage(IntToStr(List.Count));//4ShowMessage(List[0]);//aaaList.Free;end;//置换分隔符varList:TStringList;beginList:=TStringList.Create;List.Delimiter:='|';List.DelimitedText:='aaa|bbb|ccc|ddd';ShowMessage(IntToStr(List.Count));//4ShowMessage(List[0]);//aaaList.Free;end;//类似的哈希表操作法varList:TStringList;beginList:=TStringList.Create;List.Add('aaa=111');List.Add('bbb=222');List.Add('ccc=333');List.Add('ddd=444');ShowMessage(List.Names[1]);//bbbShowMessage(List.ValueFromIndex[1]);//222ShowMessage(List.Values['bbb']);//222//ValueFromIndex可以赋值:List.ValueFromIndex[1]:='2';ShowMessage(List[1]);//bbb=2//可以通过Values赋值:List.Values['bbb']:='22';ShowMessage(List[1]);//bbb=22List.Free;end;//避免重复值varList:TStringList;beginList:=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;//排序与倒排序{排序函数}functionDescCompareStrings(List:TStringList;Index1,Index2:Integer):Integer;beginResult:=-AnsiCompareText(List[Index1],List[Index2]);end;procedureTForm1.Button1Click(Sender:TObject);varList:TStringList;beginList:=TStringList.Create;List.Add('bbb');List.Add('ccc');List.Add('aaa');//未排序ShowMessage(List.Text);//bbbcccaaa//排序List.Sort;ShowMessage(List.Text);//aaabbbccc//倒排序List.CustomSort(DescCompareStrings);//调用排序函数ShowMessage(List.Text);//cccbbbaaa//假如:List.Sorted:=True;List.Add('999');List.Add('000');List.Add('zzz');ShowMessage(List.Text);//000999aaabbbccczzzend;

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台