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 webbrowser getelementbyid().innerhtml与getelementbyid().value的区别

Delphi 用api函数抓取屏幕图像

如何在 Delphi 中静态链接 sqlite

Delphi image1 图像复制到剪切板

Delphi mscomm 实时串口通讯

Delphi 数字分隔

Delphi fmx 绘制非常精确的 时分秒针

Delphi二值图像腐蚀算法

Delphi 在桌面中嵌入窗体

Delphi 检测鼠标键盘多久没有活动

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

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