Delphi 泛型搜索字符串数组

本文整理自网络，侵删。

 
代码1：
uses StrUtils;
procedure TForm1.FormCreate(Sender: TObject);
var
  someArray: TArray;
begin
  someArray:=TArray.Create('One','Two','Three');
  if MatchStr('Two', someArray) then
    ShowMessage('It contains Two');
end;


代码2：
{$APPTYPE CONSOLE}

{$R *.res}

uses    
  Generics.Defaults,
  Generics.Collections,
  System.SysUtils;

Var
  someArray: TArray;
  FoundIndex : Integer;

begin
  try
    someArray:=TArray.Create('a','b','c');
    if TArray.BinarySearch(someArray, 'b', FoundIndex, TStringComparer.Ordinal) then
     Writeln(Format('Found in index %d',[FoundIndex]))
    else
     Writeln('Not Found');
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.
注意：BinarySearch要求对数组进行排序。
 

相关阅读 >>

Delphi 最简单的文件大小bytes转mb

Delphi 处理链接和文件路径结尾\和/

Delphi wmi获取网卡mac

Delphi twebbrowser与嵌入youtube视频崩溃

Delphi中始终用webbrowser打开网页

Delphi 清空目录以及子目录

Delphi 16进制字符串转原字符串

Delphi 如何从dll中检索导出函数的列表

Delphi 获取其它软件的tlistbox句柄，怎么取得listbox中的数据

Delphi showmodal与show的区别

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

转载请注明出处：木庄网络博客 » Delphi 泛型搜索字符串数组