var BookmarkList: TList;
… OP CRE�ëR BookmarkList: = TList.Create;
De Referenties van het Voer van // aan TList. U kunt het willekeurige toevoegen verslag… enkel de orde herinnert.
procedure TFormTest.ButtonAddBookmarkToListClick (Afzender: TObject);
var TempBookmark: TBookmark;
begin
TempBookmark: = mySQLTable1.GetBookmark;
BookmarkList.Add (TempBookmark);
eind;
// gaat naar Referenties. ShowMessage moet daar enkel voor me controleren als het terug naar het juiste verslag richt.
procedure TFormTest.ButtonGoToBookmarksClick (Afzender: TObject);
var Cnt: Geheel;
begin
voor Cnt: = beginnen 0 aan BookmarkList.Count -1
mySQLTable1.GotoBookmark (TBookMark (BookmarkList.Items [Cnt]));
ShowMessage (mySQLTable1.FieldByName („Klant“) .AsString);
eind;
eind;
|