var BookmarkList: TList;
… AUF BookmarkList VERURSACHEN: = TList.Create;
//-Zufuhr-Bookmarks zu TList. Sie können gelegentliche Aufzeichnung addieren… sich erinnern gerade den an Auftrag.
Verfahren TFormTest.ButtonAddBookmarkToListClick (Absender: TObject);
var TempBookmark: TBookmark;
anfangen
TempBookmark: = mySQLTable1.GetBookmark;
BookmarkList.Add (TempBookmark);
Ende;
// gehen zu den Bookmarks. ShowMessage ist dort gerade, damit ich überprüfe, ob es zurück zu der rechten Aufzeichnung zeigt.
Verfahren TFormTest.ButtonGoToBookmarksClick (Absender: TObject);
var Cnt: Ganze Zahl;
anfangen
für Cnt: = fangen 0 zu BookmarkList.Count -1 an
mySQLTable1.GotoBookmark (TBookMark (BookmarkList.Items [Cnt]));
ShowMessage (mySQLTable1.FieldByName („Kunde ").AsString);
Ende;
Ende;
|