Moin moin
So, bin mir nich sicher ob das in deinem Fall geht aber versuch doch mal folgendes:
(Is jetzt mit ner Gauge)
Delphi-Quellcode:
.
.
.
gauge1.maxvalue := qrMain.recordcount;
while not qrMain.eof do begin
.
.
.
gauge1.progress := gauge1.progress + 1;
qrMain.next;
end;//while
gauge1.progress := 0;
.
.
Müsste aber auch analog mit einer Progressbar zu lösen sein.
Vor begin der while schleife Maxvalue auf die Anzahl der Einträge der Abfrage setzten und dann einfach bei jedem next die Eigenschaft progress um Eins erhöhen.
schönen Gruß
Sam
[edit] mhh..nach erneutem Lesen deines Beitrags glaub ich, dass ich hier ziemlich an der Frage vorbei geschrieben hab...[/edit]