Pergunta : Delphi edição de TList 2010 e de TBookmark

Olá! todos,

I am que tenta conservar um TBookmarks de um TTable em TList. Mas o problema é quando eu estou tentando se transportar 2 aquelas posições de TBookmark no TTable. Não posiciona corretamente. Isto usado para trabalhar para trás nas versões mais velhas de Delphi mas eu precisa este para Delphi 2010. O projeto do teste é muito simples. Dar forma e duas tabelas mostradas dois no class= " lineNumbers " >
1 do >

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 " do id= " codeSnippet792540 " do >
var BookmarkList: TList;

… EM CRIAR BookmarkList: = TList.Create;

Marcador da alimentação de // a TList. Você pode adicionar o registro aleatório… apenas recorda a ordem.
procedimento TFormTest.ButtonAddBookmarkToListClick (remetente: TObject);
var TempBookmark: TBookmark;
começar
  TempBookmark: = mySQLTable1.GetBookmark;
  BookmarkList.Add (TempBookmark);
extremidade;

// vai aos marcador. ShowMessage está lá apenas para que eu verific se está apontando de volta ao registro direito.
procedimento TFormTest.ButtonGoToBookmarksClick (remetente: TObject);
var Cnt: Inteiro;
começar
  para Cnt: = 0 a BookmarkList.Count -1 começam
    mySQLTable1.GotoBookmark (TBookMark (BookmarkList.Items [Cnt]));
    ShowMessage (mySQLTable1.FieldByName (“cliente ").AsString);
  extremidade;
extremidade;
class= >
" desobstruído " de
class= do

Resposta : Delphi edição de TList 2010 e de TBookmark

Olá! todos!

Paul Hughes já resolveu essa edição em EDN. Obrigado para a ajuda. Está aqui a ligação.
https://forums.embarcadero.com/message.jspa?messageID=254288

Considerações amáveis
Outras soluções  
 
programming4us programming4us