IsFirstRecordとIsLastRecordの実装方法は？

Question

私がコントロールを無効にするのは、ユーザーがそれをクリックするのが無意味なときです。

特別なケースの1つは、標準TDBNavigatorの最初、前、次、および最後のボタンをエミュレートするカスタムメニューボタンのセットです。

ユーザーが最初のボタンをクリックすると、最初と前のボタンが両方とも無効になります。

ユーザーが次のおよび前のボタンをクリックすると、下にあるTDataSetが前と同じレコードに配置されますが、最初と前のボタンは両方とも有効です。

現在の実装では、次のようになります。私は、現在のレコードが最初/最後のレコードであることを行っている場合は、事前に知っておく必要があるため

NavigationFirstButton.Enabled := not DataSet.IsEmpty and not DataSet.Bof; 
NavigationPriorButton.Enabled := not DataSet.IsEmpty and not DataSet.Bof; 
NavigationNextButton.Enabled := not DataSet.IsEmpty and not DataSet.Eof; 
NavigationLastButton.Enabled := not DataSet.IsEmpty and not DataSet.Eof; 

BofとEofは、ボタンを無効にする正しい方法ではありません。

だから私はIsFirstRecordとIsLastRecord方法を使用して、これを書き換えると考える：

function IsFirstRecord(ADataSet: TDataSet): Boolean; 
begin 
    Result := ADataSet.RecNo = 0; 
end; 

function IsLastRecord(ADataSet: TDataSet): Boolean; 
begin 
    Result := ADataSet.RecNo = ADataSet.RecordCount - 1; 
end; 

私は私が最初のレコードRecNo = 0のためではない例を見てきたので、これは、良いアイデアだと思いません本当。 （すなわち、フィルタリングされたTADSクエリ）

IsFirstRecordとIsLastRecordの信頼できる実装は何ですか？現在のTDataSetアーキテクチャを使用しても可能ですか？

Answer 1

あなたはこのような何かを試みることができる：

function IsFirstRecord(ADataSet: TDataSet): Boolean; 
var 
    BmStr: TBookmarkStr; 
begin 
    Result := not ADataSet.IsEmpty; 
    if not Result then Exit; 
    Result := ADataSet.Bof; 
    // if ADataSet is already at BOF there is no point to continue 
    if not Result then 
    begin 
    ADataSet.DisableControls; 
    try 
     BmStr := ADataSet.Bookmark; 
     try 
     ADataSet.Prior; 
     Result := ADataSet.Bof; 
     finally 
     ADataSet.Bookmark := BmStr; 
     end; 
    finally 
     ADataSet.EnableControls; 
    end; 
    end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    if IsFirstRecord(ADODataSet1) then 
    ShowMessage('First') 
    else 
    ShowMessage('Not First'); 
end; 

IsLastRecordの実装は、単純に置き換える：

ADataSet.Prior -> ADataSet.Next 
ADataSet.Bof -> ADataSet.Eof