Text in Edit anzeigen

[wernkrau38]

Hallo,
Ich habe im Formular 2 Edit Zeilen und einen Button.
Nach Knopfdruck soll im 1.Edit 'Start' stehen und nach Ablauf von ein paar Sekunden im 2.Edit ' Ende' und dann ein Beep.
Es wird aber in beiden Edits gleichzeitig nach Ablauf der Zeit geschrieben!

Woran kann das liegen?

mfg, Wernkrau38

[m.fuchs]

1.) Bitte keine *.exe-Dateien.

2.) Vergiss als erstes deine Repeat-Until-Schleife. Benutze die Sleep-Prozedur (http://www.freepascal.org/docs-html/rtl ... sleep.html).

3.) Nach der Zuweisung an dein Edit1 rufst du Application.ProcessMessages auf. Dadurch werden die Änderungen an Programm sofort weitergereicht.

[wp_xyz]

In deinem Code beginn gleich nach dem Setzen desTexts in Edit1 die Zählschleife für die Zeitverzögerung. Daher hat dein Programm keine Chance, auf die Aufforderung, das Formular neu auszugeben, die durch das Setzen des Edit1.Texts in die Message-Queue gestellt wurde, zu reagieren. Schreibe nach "Edit1.Text := 'Start'" einfach "Application.ProcessMessages" - das veranlasst, dass dein Programm die Nachrichtenwarteschlange abarbeitet.

Trotzdem: Richtig ist dein Code auch dann noch nicht. Was ist, wenn du in ein paar Jahren einen neuen Computer hat, der die Zählschleife schneller abarbeitet?

Richtig ist, mit einem Timer zu arbeiten. Das geht ganz einfach: Klicke eine TTimer-Komponente (das erste Icon auf Lasche "System") aufs Formular, trage unter "Interval" die Wartezeit in Millisekunden, also z. 2000 für 2 sec, ein, und setze "Enabled" auf false. Letzteres ist wichtig, weil der Timer ja erst nach dem Klicken auf den Schalter aktiv werden soll. In das OnTimer-Event schreibst du, was passieren soll, wenn die Zeit abgelaufen ist, also "Edit2.Text := 'Ende'".

Jetzt fehlt noch der Start von allem - das geschieht durch den Button-Click, also Text von Edit1 mit "Start" belegen, und den Timer starten:

Code: Alles auswählen

 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := 'Start';
  Time1.Enabled := true;
end;

Das "Application.ProcessMessages" ist in diesem Fall nicht nötig, da das Programm nach dem Button-Click automatisch die Nachrichtenwarteschlange abfragen kann.

Und eins noch: Wir glauben dir deine Beschreibung des Problems auch ohne beigefügte exe-Datei. Besser ist es, ein kompilierbares Projekt anzuhängen, dann muss man sich hier nicht selbst ein Testprojekt basteln, um dein Problem nachstellen zu können. Dafür werden nur die .pas, .lfm, lpi and lpr Dateien benötigt, nichts, was beim Kompilieren automatisch erzeugt wird! Packe alles in eine zip-Datei, diese kannst du an deine Nachricht anhängen.

[wernkrau38]

Herzlichen Dank für Eure blitzschnellen und gründlichen Antworten.
Jetzt habe ichs begriffen: Eine Message absetzen ist der Knackpunkt.

Das kleine Beispiel ist natürlich keine ernsthafte Anwendung. Das Problem tauchte bei mir in einem sinnvolleren Projekt auf und ich fand keine Lösung dafür.
Deshalb habe ich diesen Extrakt geschrieben. Aber trotzdem: Den Timer und den SLEEP kannte ich auch nicht!

[Mathias]

Ich würde es so machen:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := ' Start';
  Application.ProcessMessages;
  Sleep(2000);
  Edit2.Text := 'Ende';
  beep;
end;   

Zur Timer-Methode würde ich nur greifen, wen während der Pause trotzdem auf andere Ereignisse reagiert werden muss.
Oder wen die Pausen lange sind, 2sec ist gerade eine Schmerzgrenze.

[wp_xyz]

Naja, "Sleep" steht bei mir auf der "schwarzen" Liste. Das verführt dazu, den Programm-Ablauf wie zu DOS-Zeiten linear zu verinnerlichen, statt ereignisorientiert zu denken. Außerdem: Blockiert das nicht den Hauptthread?

[Mathias]

Naja, "Sleep" steht bei mir auf der "schwarzen" Liste.

Es gibt Anwendungen, da geht es fast nicht anders, wen man zB. Daten an eine Messkarte schickt, und man 10ms warten muss, bist die Daten auslesbereit sind.