Befehlsverarbeitung unter Delphi

[stev-e87]

Guten Morgen allerseits,

ich bin mir in Bezug auf die Vorgehensweise von Delphi bei der Abarbeitung der Befehle nicht so ganz sicher. Erst der Code:

Delphi-Quellcode:

procedure TWnd_Main.tb_Load_ElementsClick(Sender: TObject);
begin
SBar.Panels[0].Text:='1. Anfordern der Bibliothek';
try
HTTP_Request('http://www.meinLink.tld','ico.xml');
SBar.Panels[0].Text:='2. Elemente laden';
Load_Elements;
finally
SBar.Panels[0].Text:='Fertig';
end;
end;

Meine Frage: Warum ändert er den Text der Statusbar erst, wenn finally eintritt? Es wird die Änderung nach Begin und die in der Mitte konsequent ausgelassen.
Hach ja, als VB Umsteiger möchte man sich wohl noch an so einige Schikane gewöhnen müssen :wink:

MfG

[holliesoft]

Hi,

Du solltest nach jeder Aktualisierung der Statusbar ein

Delphi-Quellcode:

Application.ProcessMessages;

einfügen, damit die Anwendung Zeit bekommt, um die Statusleiste neu zu zeichnen.

Gruß
Patrick

[Chemiker]

Hallo strv-e87,

Delphi-Quellcode:

try 

Finally

Wird eigentlich benutzt um Fehler abzufangen.

Wenn im Block zwischen try und finally ein Fehler auftritt, wird auf jeden Fall die Anweisung nach finally ausgeführt.

Typischerweise benutzt man das um Speicher freizugeben, wenn ein Fehler aufgetreten ist.


Bis bald Chemiker

[taaktaak]

Moin,
diese Frage habe ich mir auch schon des öfteren gestellt. Das ProcessMessages ist zwar die Lösung, die gewünschte Anzeige zu erzwingen - allerdings ist hier die Frage, warum zwischenzeitlich keine Ausgabe erfolgt...

[ChrisE]

Zitat:

Zitat von taaktaak

...allerdings ist hier die Frage, warum zwischenzeitlich keine Ausgabe erfolgt...

Genau weil nach dem ändern des Textes noch sehr viel anderes gemacht wird. Das verhindert das "automatisches" Neuzeichnen des Statusbar. Es wird die gesamte Zeit dafür "verbraten" den Quelltext danach auszuführen. Da bleibt keine Zeit die Komponenten neu zu zeichnen.

Du kannst es auch ohne ProcessMessages machen durch Update / Repaint.

Gruß, Chris

[hoika]

Hallo,

unter VB hast du das gleiche Problem.
Dort heisst Application.ProcessMessages anders, nämlich DoEvents.
Viell. führt das VB ja selber durch.

Die Nachricht Paint hat eine sehr geringe Priorität,
deshalb wird erst mal alles andere gemacht.

Heiko

[taaktaak]

Aha, die niedrige Priorität - das leuchtet ein.
Danke für die Antwort :)

[OlafSt]

Eigentlich liegt der Hase noch ganz woanders begraben...

Tatsächlich zeichnet Delphi den Statusbar nicht sofort neu. Es stellt nur eine Nachricht in die Messageloop. Solange die nicht abgearbeitet wird, wird auch nichts neu gezeichnet.

Anstelle Application.ProcessMessages würde ich SBar.Update empfehlen.

[ChrisE]

Wobei ProcessMessages genau das macht was es auch sagt: Verarbeitung der Nachrichten.
Also auch der Nachricht zum Neuzeichnen des Statusbar. Das wird auch von der Anwendung automatisch ausgeführt wenn diese nichts zu tun hat. Aber der Quelltext sorgt dafür, dass dieser Zustand der "Langeweile" für das Programm eben nicht eintritt. Somit muss man das Programm manuell dazu zwingen :-)

Gruß, Chris

:-( roter Kasten von OlafSt. Du warst wohl schneller ;-)

[taaktaak]

Zitat:

Anstelle Application.ProcessMessages würde ich SBar.Update empfehlen

Weil damit gezielt die Anzeige der Statusbar gezeichnet wird und nicht etwaige andere wartenden Operationen ebenfalls?!