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 将strings合并成一个逗号分隔的字符串,用于sql

Delphi xe6 读取android设备联系人

Delphi d10.x 并行库ppl编程之 tparallel.for

Delphi 判断窗体是否创建 存在

Delphi中多线程下使用使用 unidac+mssql 需要注意的问题

Delphi从网上获取北京时间

Delphi程序禁止结束进程

Delphi tstringdynarray 使用,分割字符串

shellexecute的多种用法

Delphi 获取程序自身大小的函数

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

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