TStrings是一个抽象类,在实际开发中,是除了基本类型外,应用得最多的。
常规的用法大家都知道,现在来讨论它的一些高级的用法。
先把要讨论的几个属性列出来:
1、CommaText
2、Delimiter & DelimitedText
3、Names & Values & ValueFromIndex
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;