Progressbar in DB-Schleife nachführen

[Peter Hennek]

Hallo, in einer while not Eof Schleife will ich eine Progressbar anzeigen lassen, die den Fortschritt anzeigt. Wie macht man sowas. Danke für Tipps und lehrreiche Hinweise. Gruß ph.

[Andreas Tengicki]

Just Do it.

Nimm die Progressbar, initialisiere Min und Max und setze in der Schleife die Position.

Oder übersehe ich was, ich denke so mache ich da

[Uli Becker]

Oder etwas ausführlicher:

<pre>
progressbar1.max := Table1.recordcount;
progressbar1.position := 0;
while not Table1.EOF do
begin
//Machwas
Table1.next;
Progressbar1.position := Progressbar1.position + 1;
end;
</pre&gt

[Falk Prüfer]

...oder<pre>
progressbar1.max := Table1.recordcount;
progressbar1.position := 0;
progressbar1.step := 1;
while not Table1.EOF do
begin
//Machwas
Table1.next;
Progressbar1.stepit;
end; </pre&gt

[Peter Hennek]

Hallo, und Dank eurer Hilfe hier für eine Gauge;
<br>Gauge1.MaxValue := Table1RrecordCount;
<br>Gauge1.Progress := 0;
<br>with Table1 do while not EOF do
<br>begin
<br>MachWas
<br>Next;
<br>Gauge1.Progress := Gauge1.Progress + 1;
<br>end;
<br> Schönes Wochenende ph