Ejercicios |
---|
|
TBookmarkStr BM = Table->Bookmark; try { // Mover la fila activa } __finally { // Regresar a la posición inicial Table->Bookmark = BM; } |
Clase auxiliar para el recorrido secuencial de un conjunto de datos |
---|
class TDataSetIterator { private: TBookmarkStr BM; TDataSet* dataset; public: TDataSetIterator(TDataSet* ds) : dataset(ds) { Screen->Cursor = crHourGlass; ds->DisableControls(); BM = ds->Bookmark; ds->First(); } ~TDataSetIterator() { dataset->Bookmark = BM; dataset->EnableControls(); Screen->Cursor = crDefault; } }; ... TDataSetIterator dsi(Table); while (! Table->Eof) { // Hacer algo con la fila activa... Table->Next(); } |