delphi TStringList.Find

本文整理自网络，侵删。

 
procedure TForm1.Btnx_1Click(Sender: TObject);
var
  IdexA:Integer;
  ListA:TStringList;
begin
  try
    ListA:=TStringList.Create;
    ListA.Add('banana');
    ListA.Add('Apple');
    ListA.Add('banana');
    ListA.Add('Pear');
    ListA.Add('Orange');

    ListA.Sorted:=True;

    IdexA:=-1;
    ListA.Find('banana',IdexA);
    ShowMessageFmt('%D',[IdexA]);
  finally
    FreeAndNil(ListA);
  end;
end;
 

相关阅读 >>

Delphi getmodulefilename函数的用法(可以获取项目的路径，桌面的路径，我的文档的路径)

Delphi json 转换成 tfdmemtable

Delphi 利用 showmessage(syserrormessage(getlasterror));得到不反馈的错误信息

Delphi unigui form控件跳转

Delphi 加载excel 导入数据库

Delphi用ado操作数据库完整示例

Delphi程序禁止结束进程

Delphi用idtcpserver和idtcpclient传输文件

Delphi 程序重新启动自身

Delphi 将strings合并成一个逗号分隔的字符串,用于sql

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

转载请注明出处：木庄网络博客 » delphi TStringList.Find