Ausgabe verzögern

Thema durchsuchen

Ansicht

Themen-Optionen

Ein Thema von ulrich72 · begonnen am 24. Okt 2018 · letzter Beitrag vom 29. Okt 2018

Vorheriger Beitrag

Nächster Beitrag

ulrich72

Registriert seit: 27. Dez 2015
Ort: Rostock
14 Beiträge

Delphi 10.3 Rio

Ausgabe verzögern

24. Okt 2018, 10:25

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?

markieren

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