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用ado操作数据库完整示例

Delphi加载图像存储到数据库中

Delphi windows 下用 Delphi 代码杀死进程，或者杀死自己

Delphi中实现hextostr函数和strtohex函数

Delphi中判断某个文件是否已经打开

Delphi doc转txt

Delphi在memo按键实现全选

Delphi瞬间消除无用托盘图标(刷新托盘)

Delphi中关于时间差的实例

delphDelphi chromium embedded 清除指定链接浏览器缓存、cookies

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

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