Fråga : Delphi TList 2010 och TBookmark utfärdar

Hälsningar alla, förmiddag för

I är pröva till räddningen en TBookmarks från en TTable in i TList. Men problemet är när I-förmiddagen som är pröva till flyttningen till de TBookmark placerar i TTablen. Det placerar inte korrekt. Denna van vid arbetsbaksida i de äldre versionerna av Delphi men jag behöver denna för Delphi 2010. Testa projekterar är mycket enkelt. Bilda, och två bordlägger visad itu class= " lineNumbers " >

1 för >
var BookmarkList: TList;

…, PÅ SKAPA BookmarkList: = TList.Create;

// matningsbokmärkear till TList. Du kan tillfoga det slumpmässiga rekordet… minns precis beställa.
tillvägagångssätt TFormTest.ButtonAddBookmarkToListClick (avsändare: TObject);
var TempBookmark: TBookmark;
börja
  TempBookmark: = mySQLTable1.GetBookmark;
  BookmarkList.Add (TempBookmark);
avsluta;

// går till bokmärkear. ShowMessage är där precis för att mig ska kontrollera, om den pekar tillbaka till det högra rekordet.
tillvägagångssätt TFormTest.ButtonGoToBookmarksClick (avsändare: TObject);
var Cnt: Heltal;
börja
  för Cnt: = 0 till BookmarkList.Count -1 börjar
    mySQLTable1.GotoBookmark (TBookMark (BookmarkList.Items [Cnt]));
    ShowMessage (mySQLTable1.FieldByName (”kunden”) .AsString);
  avsluta;
avsluta;
<-/pre>

Kind:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
class= " prettyprint " för id= " codeSnippet792540 " för >


" klar " 

Svar : Delphi TList 2010 och TBookmark utfärdar

Hälsningar alla!

Paul Hughes löste redan som utfärdar på EDN. Tacka dig för hjälp. Är här anknyta.
https://forums.embarcadero.com/message.jspa?messageID=254288

Snällt hälsningar