Ausgabe verzögern

[ulrich72]

Hallo,
die Ausgaben in der folgenden Procedur sollen verzögert erscheinen. Mit delay(zahl) habe ich es versucht aber leider ohne Erfolg. Wer kann helfen?

Code:

procedure TForm1.Button7Click(Sender: TObject);
  var a, h, Af, U : Real;
begin
  a:= strtofloat(Edit1.Text);
  h:= a/2*sqrt(3);
  Af := (a*a);
  Af := Af/4;
  Af := Af*sqrt(3);
  U := 3*a;
  Edit2.Text := floattostr(Af);
  Edit3.Text := floattostr(U);
  Edit4.Text := floattostr(h);
end;

Genutzt wird Lazarus Version 1.8.4

vG
Ulrich

[Schokohase]

Da brauchst du einen Timer und etwas um die Werte zu speichern, die dann vom Timer nach Ablauf der Zeit gesetzt werden.

[Der schöne Günther]

Befehle mit Namen wie Sleep, Delay oder sonstwas halten das gesamte Programm an, solange kannst du es auch nicht bedienen oder beenden.

Das Anschaulichste mit dem größten Lern-Effekt wäre wohl wirklich einen Timer zu benutzen. Den würdest du aktivieren, er zählt drei mal eine Sekunde hoch und wenn er bis drei gezählt hat kannst du die Werte einblenden.


Es gibt noch x andere Möglichkeiten, aber ich denke auch mit einem Timer ist am einfachsten zu verstehen was abgeht und man lernt am meisten.

[Luckie]

Ganz simpel wäre ein Sleep. Nur ist dann so lange die Oberfläche nicht bedienbar.

[API]

Zitat von Luckie:

Ganz simpel wäre ein Sleep. Nur ist dann so lange die Oberfläche nicht bedienbar.

Sleep einfach kombininieren mit einem Application.ProcessMessages

Delphi-Quellcode:

  procedure ResponsiveSleep(SleepTime: LongInt);
  Var
    FinalTick : QWord;
  begin
    FinalTick := GetTickCount64 + SleepTime;
    while GetTickCount64 < FinalTick do
    begin
      Sleep(10);
      Application.ProcessMessages;
    end;
  end;

[DieDolly]

Zitat:

Sleep einfach kombininieren mit einem Application.ProcessMessages

Kann man machen. Aber ProcessMessages ist meiner Meinung nach etwas, was man mit Bedacht nutzen sollte.
Dann doch lieber die Arbeit in einen Thread auslagern und dort Sleep nutzen.

[Der schöne Günther]

Zitat von API:

Sleep einfach kombininieren mit einem Application.ProcessMessages

Nein, bitte nicht.

[API]

Zitat von Der schöne Günther:

Zitat von API:

Sleep einfach kombininieren mit einem Application.ProcessMessages

Nein, bitte nicht.

Warum nicht? Das sieht stark nach einem Hobby-Projekt aus. Manchmal kann man auch einen Einzeiler verwenden, es muss nicht immer davon ausgegangen werden, dass das Programm hunderte von Anwender haben wird.

[Der schöne Günther]

Nur weil es Hobby ist muss man nicht gleich zur "Ist zwar nicht so dolle, und ich verstehe auch nicht so wirklich was abgeht, aber es scheint halbwegs zu klappen"-Lösung nehmen.


Und "länger" ist eine Version mit z.B. einem Timer auch nicht

[Luckie]

Auch wenn Ulrich ulrich72 heißt, sieht mir das doch eher nach einer Schulaufgabe aus. Und da sollte die Lösung auch zum Niveau passen. Ein Sleep löst die Aufgabe und ein Timer wäre ein nice-to-have. Hier mit Threads arbeiten zu wollen, wäre zu viel des Guten, denke ich.