以下的程式片段示範 Bookmark 的用法
procedure TForm1.Button1Click(Sender: TObject);
var
bm: TBookmark;
begin
bm := Table1.GetBookmark;
Table1.DisableControls;
//
// ... 此處作一些會更動到記錄指標的工作
//
Table1.GotoBookmark(bm);
Table1.FreeBookmark(bm); // 別忘了這行
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i: integer;
bm: TBookmark;
begin
Screen.Cursor := crHourGlass;
Application.ProcessMessages;
bm := Table1.GetBookmark;
try
for i := 0 to dbgTip.SelectedRows.Count-1 do
begin
Table1.Bookmark := dbgTip.SelectedRows.Items[i];
{--- Do some work ---}
end;
finally
Table1.GotoBookmark(bm);
Table1.FreeBookmark(bm);
Screen.Cursor := crDefault;
end;
end;
               (
geocities.com/huanlin_tsai)