Delphi中TStringList的用法

TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。
常规的用法大家都知道，现在来讨论它的一些高级的用法。
先把要讨论的几个属性列出来：

 

1、CommaText
2、Delimiter & DelimitedText
3、Names & Values & ValueFromIndex

 一、CommaText 用法

var
  strlist:String;
  strs:TStrings;
  i:Integer;
begin
  strlist:='朱念,李金茹,闻勇,杨旭,黄金宝';
  strs:=TStringList.Create;
  strs.CommaText:=strlist;
  for i:=0 to strs.Count-1 do
  ShowMessage(strs[i]);
end;

执行了这段代码后，可以看到ShowMessage显示出来的分别是：朱念 李金茹 闻勇 杨旭 黄金宝。strs.CommaText := constr这一句的作用，就是把一个字符串以','为分割符，分段添加到TStrings中。

 

二、Delimiter & DelimitedText 用法

var
  strlist:String;
  strs:TStrings;
  i:Integer;
begin
  strlist:='朱念;李金茹;闻勇;杨旭;黄金宝';
  strs:=TStringList.Create;
  strs.Delimiter:=';';
  strs.DelimitedText:=strlist;
  //strs.CommaText:=strlist;
  for i:=0 to strs.Count-1 do
    ShowMessage(strs[i]);
end; 

执行了这段代码后，可以看到ShowMessage显示出来的分别是：朱念 李金茹 闻勇 杨旭 黄金宝。

 

三、Names & Values & ValueFromIndex 用法

var
  strlist:String;
  strs:TStrings;
  i:Integer;
begin
  strlist:='1=朱,2=李,3=闻,4=杨,5=黄';
  strs:=TStringList.Create;
  strs.CommaText:=strlist;
  for i:=0 to strs.Count-1 do
  begin
    ShowMessage(strs.Names[i]); //显示1、2、3、4、5
    ShowMessage(strs.Values[strs.Names[i]]);
    ShowMessage(strs.ValueFromIndex[i]);
  end;
end;