"locate"でFirebirdを検索

Question

大文字と小文字（Locate case Insensitive）にかかわらず "locate"で検索したい。このような ：火の鳥で

Form1.Table1.Locate('field', (Edit1.Text),[loCaseInsensitive]) ;

、私はそれを行う方法を知りませんでした。

Delphi XE5 + Firebird 2.5 + ZEOSDBO-7.1.4。

ありがとうございました。

Answer 1

Locate機能は、すべてではなくほとんどのTDataSet-descendantコンポーネントで実装されているクライアント側の機能です。

「検索」機能ではない、つまり、データセットがサーバーから取得するテーブル行には何の影響もありません。使用しているデータセットの種類に対して通常どんな方法で行っても構いません、例えばSQL文を指定してから、データセットでOpenを呼び出します。

Locateは、最初に一致するレコードがある場合はデータセットのカーソルを移動するだけで、そうでない場合はFalseを返します。つまり、成功した場合、最初に見つかったレコードは、データセットの現在のレコード、つまりデータセットに接続されたdb対応コントロールによって表示されるレコードになります。

動作するはずですあなたが引用コードは、は、あなたがそれとは、すでにデータが移入されたサポートを使用している TDataSetのタイプを提供します。もちろん、一致するレコードの位置を管理する場合にのみTrueを返します。

Found := Table1.Locate('field1;field2', VarArrayOf([Edit1.Text, Edit2.Text]), [loCaseInsensitive]);