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

[uligerhardt]

Zitat:

Zitat von p80286

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.

TNotifyEvent bedeutet ja nicht zwangsweise VCL-Oberfläche. Ich würde schon versuchen, entweder eine "procedure(...) of object" zu nehmen oder zumindest deinem SHOWCNT einen zusätzlichen Parameter a la "Data: Pointer" zu verpassen, damit du später auch einen Kontext in deinen Callback-Routinen hast.

[p80286]

Hallo Uli,

ich hab im Augenblick gut zu tun, darum reagiere ich etwas langsam.
Leider verstehe ich Deine Einlassungen nicht.

Wenn ich mich richtig erinnere beinhaltet TNotifyEvent zwei Adressen, die der Routine und die des besitzenden Objektes, da ich aber von OO unabhängig sein will ,was nicht deckungsgleich mit VCL ist, habe ich diese "Sparversion" gewählt.

Das Callback verstehe ich überhaupt nicht. Die Anzeige ist ja nur nettes Beiwerk für den Benutzer. Die eigentliche Verarbeitung soll ja davon vollkommen unberührt sein. Der ist es egal ob eine Anzeige erfolgt.

Gruß
K-H

[uligerhardt]

Morgen, K-H!

Zitat:

Zitat von p80286

ich hab im Augenblick gut zu tun, darum reagiere ich etwas langsam.

Kein Problem. :-D

Zitat:

Zitat von p80286

Leider verstehe ich Deine Einlassungen nicht.

Kommt öfter vor. Irgendwie bin ich im Erklären nicht sooo gut. :wink:

Zitat:

Zitat von p80286

Wenn ich mich richtig erinnere beinhaltet TNotifyEvent zwei Adressen, die der Routine und die des besitzenden Objektes, da ich aber von OO unabhängig sein will ,was nicht deckungsgleich mit VCL ist, habe ich diese "Sparversion" gewählt.

Das Callback verstehe ich überhaupt nicht. Die Anzeige ist ja nur nettes Beiwerk für den Benutzer. Die eigentliche Verarbeitung soll ja davon vollkommen unberührt sein. Der ist es egal ob eine Anzeige erfolgt.

Mit Callback hab ich einfach dein CNT_ANZEIGE gemeint. Und in deinem Beispiel holst du dir das upzudatende Label ja über die globale Variable Form1. Das wäre halt IMHO etwas "sauberer", wenn du dir diese Information über die (impliziten) Self-Variablen eines TNotifyEvent oder einen expliziten Data-Pointer besorgst, etwa so:

Delphi-Quellcode:

procedure CNT_ANZEIGE(instr:string; Data: Pointer);
begin
  TForm1(Data).Label1.Caption:=instr;     {ein String kann auch mehr sein als eine Zahl  }
  application.ProcessMessages;     {sonst gibts keine Anzeige                     }     
end;

Das ist aber alles Geschmackssache, also ignoriere meinen "Senf", wenn deine Lösung funktioniert. :mrgreen:

Uli.