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

相关阅读 >>

Delphi 调试tms web core应用

Delphi thread.queue与synchronize的区别

Delphi 2009 泛型容器单元(generics.collections)[2]: tqueue<t>

Delphi 创建多级目录

Delphi 编写服务程序的几点总结

Delphi 排列桌面图标

Delphi http协议验证访问datasnap rest 服务器

Delphi中关于canvas.textout的用法

Delphi 生成并替换txt里的内容

Delphi findfiles获取目录下所有文件

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...