var BookmarkList: TList;
… NA TWORZYĆ BookmarkList: = TList.Create;
// Karma Bookmarks TList. Ty móc przypadkowy rejestr… właśnie pamiętać the rozkaz.
procedura TFormTest.ButtonAddBookmarkToListClick (Nadawca: TObject);
var TempBookmark: TBookmark;
zaczynać
TempBookmark: = mySQLTable1.GetBookmark;
BookmarkList.Add (TempBookmark);
końcówka;
// Iść Bookmarks. ShowMessage być tam właśnie dla jeżeli ono wskazywać z powrotem the prawy rejestr.
procedura TFormTest.ButtonGoToBookmarksClick (Nadawca: TObject);
var Cnt: Integer;
zaczynać
dla Cnt: = (0) BookmarkList.Count -1 zaczynać
mySQLTable1.GotoBookmark (TBookMark (BookmarkList.Items [Cnt]));
ShowMessage (mySQLTable1.FieldByName ("Klient ").AsString);
końcówka;
końcówka;
|