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ß

[3_of_8]

statusbar1.refresh nachdem Setzen des Textes, oder Application.ProcessMessages. Ich würde ProcessMessages nehmen.

Oder du arbeitest mit Threads, was hierfür aber leicht "oversized" wäre.

[hgiel]

Funktioniert prima - vielen Dank!

[Luckie]

Zitat:

Zitat von 3_of_8

Oder du arbeitest mit Threads, was hierfür aber leicht "oversized" wäre.

Wie so? Du weißt doch gar nicht, was hier

Delphi-Quellcode:

VERARBEITUNG der Textzeile ...

pasiert.

[3_of_8]

Es ist so doch wirklich einfacher. Ich finde, dass man das so viel besser machen kann in diesem Fall.

[DerDan]

Also ich würde auch einen Thread nehmen.

Im Hauptthread würd ich zyklisch (z.B. alle 250ms) die Thread Variablen lesen und daraus die Statuszeile bilden. dadurch bleibt die Statuszeile lesbar und die Schleife läuft schneller durch als mit Refresh oder ProcessMessages.

Auserdem ist der Thread dann unabhängig von einer Gui und kann seine Funktion zur not auch in einer Konsolen Anwendung erledigen


mfg


DerDan