Protokollierung von Schleifendurchgängen in Statuszeile

[hgiel]

Hallo,

ich mußte schon einige Male Progrämmchen basteln, die große Textdateien (zeilenweise) analysierten. Um dem Anwender einen "StatusQuo" zu übermittel, z.B. welche Textzeile schon abgearbeitet wurde, möchte ich in der Statuszeile die Zeilennummer ausgeben.

Habe ich mit einer Schleife über die Textzeilen und einem Zeilenzähler realsiert:

ds_zaehler:=1;
while not eof(f) do
begin
VERARBEITUNG der Textzeile ...
inc(ds_zaehler);
statusbar1.simpletext:=inttostr(ds_zaehler);
end;

Mein Problem: Während der eigentlichen Text-"Verarbeitung" wird die Statuszeile NIE aktualisiert, d.h. sie zeigt Initial 1 (für die erste Zeile der Tetxdatei und dann erst wieder am Ende der Verarbeitung den Endwert - Gesamtanzahl der Zeilen - in der Statuszeile an.

Weiß jemand Rat - ich hoffe, daß ich mich einigermaßen verständlich ausgedrückt habe.

Vielen Dank und Gruß