Delphi-PRAXiS
Seite 1 von 2  1 2   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Befehlsverarbeitung unter Delphi (https://www.delphipraxis.net/130305-befehlsverarbeitung-unter-delphi.html)

stev-e87 6. Mär 2009 08:33


Befehlsverarbeitung unter Delphi
 
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 6. Mär 2009 08:41

Re: Befehlsverarbeitung unter Delphi
 
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 6. Mär 2009 08:44

Re: Befehlsverarbeitung unter Delphi
 
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 6. Mär 2009 08:46

Re: Befehlsverarbeitung unter Delphi
 
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 6. Mär 2009 09:02

Re: Befehlsverarbeitung unter Delphi
 
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 6. Mär 2009 09:12

Re: Befehlsverarbeitung unter Delphi
 
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 6. Mär 2009 09:15

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

OlafSt 6. Mär 2009 09:18

Re: Befehlsverarbeitung unter Delphi
 
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 6. Mär 2009 09:20

Re: Befehlsverarbeitung unter Delphi
 
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 6. Mär 2009 09:30

Re: Befehlsverarbeitung unter Delphi
 
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?!


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:28 Uhr.
Seite 1 von 2  1 2   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz