Setting Bookmarks in a database

Setting Bookmarks in a database




Setting Bookmarks in a database:

Uses DB;

var Bookmark : TBookmark;
procedure TForm1.FormCreate(Sender: TObject);
begin
Bookmark := nil;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if BookMark <> nil
then Table1.GotoBookMark(BookMark);
Table1.FreeBookMark(BookMark);
Bookmark := nil;
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
if Bookmark = nil then
BookMark :=
Table1.GetBookMark;
end;