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