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 firemonkey应用程序中显示时隐藏虚拟键盘

Delphi 判断com端口是否存在

Delphi 改造shellexecute 精简函数

Delphi xe并行编程:ttask

Delphi removedir 删除文件夹

Delphi 虚拟键码对照表

Delphi 内存管理1

Delphi 实现检测线程类tthread是否结束

Delphi中messagebox用法

Delphi实现webservice带身份认证的数据传输

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



打赏

取消

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

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

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

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

评论

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