Update eines Labels aus einer Verarbeitungsschleife

[p80286]

Hallo Zusammen,

auch wenn es etwas her ist, habe ich trotzdem vor mich hingebastelt.
Folgende Lösung scheint recht tauglich zu sein:

Delphi-Quellcode:

{-- Diese Procedure koppelt die Anzeige im Form und den Counter in der Daten-Unit }
procedure CNT_ANZEIGE(instr:string);
begin
  form1.Label1.Caption:=instr;     {ein String kann auch mehr sein als eine Zahl  }
  application.ProcessMessages;     {sonst gibts keine Anzeige                     }     
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  starttime,
  endtime    : tdatetime;
begin
  starttime:=now;
  READ_DATA('c:\temp\paend.txt');  
  endtime:=now;
  form1.Label2.Caption:='Laufzeit: '+timetostr(endtime-starttime)+' HH:MM:SS';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SHOWCNT:=CNT_ANZEIGE;
end;

Delphi-Quellcode:

interface
var
  SHOWCNT: procedure (instr:string);

procedure READ_DATA(efile:string);

implementation
uses
  sysutils;

procedure READ_DATA(efile:string);
var
  tdat  : textfile;
  cnt   : integer;
  dummy : string;
begin
  cnt:=0;
  assignfile(tdat,efile);
  reset(tdat);
  repeat
    readln(tdat,dummy);
    inc(cnt,1);
    if cnt and $F=0 then             { damit die Ausgabe nicht zu oft aufgerufen wird }
    if assigned(SHOWCNT) then        { läuft auch wenn in der Form-Unit keine Anzeige/Ausgabe erfolgt}
      SHOWCNT(inttostr(cnt));
  until eof(tdat);
  closefile(tdat);
end;

end.

Der besondere Charme liegt meiner Meinung darin, daß die Daten-Unit nicht weiß ob sie in einer Consolen oder Windowsanwendung läuft. Falls die Kopplungsprozedur zugewiesen wurde, wird nur ein String übergeben der von der Oberflächen Unit verarbeitet wird oder nicht.
Ist Sie nicht zugewiesen, stört das die Daten-Unit überhaupt nicht, sie ist also volkommen unabhängig von der Oberflächen-Unit.
Darum habe ich das TNotifyEvent auch nicht benutzt, da dann auf jeden Fall eine OO-Oberfläche vorhanden sein muß und ich wollte mir alle Optionen offen halten.
Die Einbindung in das Form ist nicht optimal, erfüllt aber seinen Zweck.

Den Lösungsansatz mit Threads werde ich mal aufgreifen wenn ich richtig fette Dateien zu lesen habe.

Vielen Dank nochmal für Eure Tips und Anregungen.

Grüße
K-H