Question : Delphes issue de TList 2010 et de TBookmark

Bonjour chacun,

I AM essayant de sauver un TBookmarks d'un TTable dans TList. Mais le problème est quand j'essaye de me déplacer à ces positions de TBookmark dans le TTable. Il ne place pas correctement. Ceci employé pour travailler en arrière dans les versions plus anciennes de Delphes mais moi a besoin de ceci pour Delphes 2010. Le projet d'essai est très simple. Former et deux tables montrées dans deux le class= les " lineNumbers " >

1 de >

Kind :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
class= " de 
variété BookmarkList : TList ;

… SUR CRÉER BookmarkList : = TList.Create ;

Repères d'alimentation de // à TList. Vous pouvez ajouter le disque aléatoire… vous rappelez juste l'ordre.
procédé TFormTest.ButtonAddBookmarkToListClick (expéditeur : TObject) ;
variété TempBookmark : TBookmark ;
commencer
  TempBookmark : = mySQLTable1.GetBookmark ;
  BookmarkList.Add (TempBookmark) ;
extrémité ;

// vont aux repères. ShowMessage est là juste pour que je vérifie s'il se dirige de nouveau au bon disque.
procédé TFormTest.ButtonGoToBookmarksClick (expéditeur : TObject) ;
variété Cnt : Nombre entier ;
commencer
  pour Cnt : = 0 à BookmarkList.Count -1 commencent
    mySQLTable1.GotoBookmark (TBookMark (BookmarkList.Items [Cnt]));
    ShowMessage (mySQLTable1.FieldByName (« client ").AsString) ;
  extrémité ;
extrémité ;
class= > " clair " de 

class= de 

Réponse : Delphes issue de TList 2010 et de TBookmark

Bonjour chacun !

Paul Hughes a déjà résolu ce problème sur EDN. Merci de l'aide. Voici le lien.
https://forums.embarcadero.com/message.jspa?messageID=254288

Sincères amitiés