delphi tstringlist indexof find 查找字符串

Find是折半查找速度应该是最快了而indexof默认是 for 循环所有item了。但find使用前必须先排序 sort 否则返回 index错误。

示例如下：

var lst:TStringList ;

i:Integer ;

begin

lst:=TStringList.Create ;

try

lst:=TStringList.Create ;

lst.CaseSensitive :=true;

lst.Delimiter :=',';

lst.DelimitedText :=Edit1.Text ;

ShowMessage(IntToStr(lst.IndexOf(Edit2.Text) ));

lst.Sort ;

if lst.Find(Edit2.Text ,i) then

ShowMessage(IntToStr(i));

finally

lst.Free ;

end;

eidt2 内容如下字符串 010a,010A,200a,200b,905a

来源：https://www.cnblogs.com/chinawcs/archive/2011/09/21/2184104.html

推荐分享