DelphiのTDBGridで現在の行を検索

Question

TDBGridで現在の行が見つかっていますか？

Answer 1

私はあなたの質問を理解しているかどうかはわかりませんが、私は答えを試みるでしょうし、あなたが求めているものではないかどうかを明確にすることができます。

TDBGridはDataSourceに関連付けられているため、現在の行はデータソースの現在の行と同じです。プライマリキー値またはRecNoプロパティを調べて、現在のレコードがどのレコードかを判断することによって、DataSourceを照会することができます。

Answer 2

レコード数と現在のレコードを提供するためにデータソースに依存したくない場合（たとえば、リモートサーバー上で単方向カーソルを使用しているため）、基礎となるグリッドコントロールを使用できます。

同様のStackOverflow質問へのthis answerを参照してください。

Answer 3

あなたはこのようにそれを行うことができます。

1 - （これはあなたがプライベートメソッドにアクセスできるようになります）のTDBGridのコピーであるローカルクラスを定義します。

type 
    THackDBGrid = class(TDBGrid); 

2 - そして、あなたはキャストすることができますあなたのローカルに定義されたクラスに、とのようにプライベートメソッドから引っ張っ：

function TfrmMain.GetFieldValue(colnum : integer): string; 
begin 
    Result := THackDBGrid(grdMain).GetFieldValue(colnum); 
end; 

または、行番号を取得するには：

function CurrentRowNumber: integer; 
    Result := THackDBGrid(grdMain).Row; 
end; 

このテクニックは他の状況でも役に立ちますが、クレジットを請求することはできません。 I got it from here。