|
Registriert seit: 15. Apr 2017
5 Beiträge
|
AW: Timer
15. Apr 2017, 11:42
Ok also zählen tut es schonmal um das ganze zu stoppen dachte ich mir jetzt folgendes:
procedure TForm1.Timer1Timer(Sender: TObject);
var zeit:real;
begin
zeit:=StrToFloat(Edit2.Text);
zähler:=zähler+0.1;
PZeit.caption:=FloatToStr(zähler);
if zähler=zeit then
begin
Timer1.Enabled:=false;
end;
end;
auch wenn Zähler=zeit ist, führt es die zeile nicht aus...
|