Código Delphi [-] procedure TForm1.btnRefreshClick(Sender: TObject); var BM: TBookmark; begin BM := ZQuery.GetBookmark; // guardar posicion actual try // ... ZQuery.Close; // cerrar ZQuery.Open; // abrir ZQuery.GotoBookmark(BM) // ir a la posicion guardada finally ZQuery.FreeBookmark(BM); // liberar end; end;
procedure TForm1.btnRefreshClick(Sender: TObject); var BM: TBookmark; begin BM := ZQuery.GetBookmark; // guardar posicion actual try // ... ZQuery.Close; // cerrar ZQuery.Open; // abrir ZQuery.GotoBookmark(BM) // ir a la posicion guardada finally ZQuery.FreeBookmark(BM); // liberar end; end;