เลือกแถวหลังจากรีเฟรช DBGrid

ก่อนที่จะรีเฟรช ให้บันทึกการเลือกปัจจุบันของชุดข้อมูลที่เชื่อมโยงไว้เป็นบุ๊กมาร์ก จากนั้นจึงกู้คืนบุ๊กมาร์กในภายหลัง

คำตอบนี้มีวัตถุประสงค์เพื่อเป็นอาหารเสริมรองของ Mason ไม่ใช่ทางเลือกอื่น ฉันได้เพิ่มมันเพียงเพราะมีคำตอบอื่นปรากฏขึ้นโดยแนะนำ imo ไม่ถูกต้องการใช้คุณสมบัติ RecNo ของชุดข้อมูล ทายาท TDataSet บางตัวเท่านั้นที่ใช้ RecNo ได้อย่างน่าเชื่อถือหรือเลย ผู้สืบทอดบางรายเพียงแค่คืนค่าคงที่เช่น 0 สำหรับ RecNo ของแถวปัจจุบัน และไม่ทำอะไรเลยเมื่อคุณกำหนดค่าให้กับมัน

procedure TMyForm.DoSomethingWithDataSet(ADataSet : TDataSet);
var
  Bookmark : TBookmark;
begin
  Bookmark := ADataSet.GetBookmark; // Save your place in ADataSet

  try
    Screen.Cursor := crSqlWait;  // Show the user that something is happening
    Update;  // update the form to make sure screen cursor updates
    ADataSet.DisableControls;
    // do something with ADataSet here  e.g.
    ADataSet.First;
    while not ADataSet.Eof do begin
      // do something with current row here, then
      ADataSet.Next;
    end;
  finally
    ADataSet.GotoBookmark(Bookmark);  // Return to where you were at outset
    ADataSet.FreeBookmark(Bookmark);
    ADataSet.EnableControls;
    Screen.Cursor := crDefault;  // Let the user see you're done
  end;
end;