Questione : Delfi edizione di TList 2010 e di TBookmark

Ciao tutto,

I che prova a conservare un TBookmarks da un TTable in TList. Ma il problema è quando sto provando a muovermi verso quelle posizioni di TBookmark nel TTable. Non posiziona correttamente. Ciò usata per funzionare indietro nelle più vecchie versioni di Delfi ma io ha bisogno di questa per Delfi 2010. Il progetto della prova è molto semplice. Formar e due tabelle indicate due nel class= " i lineNumbers " >

1 del >

Kind:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
class= codeBody " prettyprint " del id= " codeSnippet792540 " del >
varietà BookmarkList: TList;

… SU GENERARE BookmarkList: = TList.Create;

Segnalibri dell'alimentazione di // a TList. Potete aggiungere l'annotazione casuale… appena ricordate l'ordine.
procedura TFormTest.ButtonAddBookmarkToListClick (mittente: TObject);
varietà TempBookmark: TBookmark;
cominciare
  TempBookmark: = mySQLTable1.GetBookmark;
  BookmarkList.Add (TempBookmark);
estremità;

// va ai segnalibri. ShowMessage è là appena affinchè me controlli se stia indicando di nuovo alla giusta annotazione.
procedura TFormTest.ButtonGoToBookmarksClick (mittente: TObject);
varietà Cnt: Numero intero;
cominciare
  per Cnt: = 0 a BookmarkList.Count -1 comincia
    mySQLTable1.GotoBookmark (TBookMark (BookmarkList.Items [Cnt]));
    ShowMessage (mySQLTable1.FieldByName (“cliente ").AsString);
  estremità;
estremità;
class= >
 " libero " di 

class= del 

Risposta : Delfi edizione di TList 2010 e di TBookmark

Ciao tutto!

Paul Hughes già ha risolto quell'edizione su EDN. Grazie per aiuto. Qui è il collegamento.
https://forums.embarcadero.com/message.jspa?messageID=254288

Cordiali saluti