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 高权限进程实现拖曳文件操作

使用rad studio为安卓内置的java库

Delphi 10.4 自定义托管记录

Delphi dbnavigator控件的按钮显示成中文

Delphi strtodatetime 这个函数在win7下出错

Delphi android程序启动过程

Delphi隐藏桌面图片和显示桌面图标

Delphi中tstringlist分割字符串的用法

Delphi opendialog控件用法

Delphi xe7写的一个http post的小测试程序

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...