Delphi Timer - Delphi-PRAXiS

Thema durchsuchen

Ansicht

Themen-Optionen

Timer

Ein Thema von P.A.P. · begonnen am 15. Apr 2017 · letzter Beitrag vom 15. Apr 2017

Vorheriger Beitrag

Nächster Beitrag

P.A.P.

Registriert seit: 15. Apr 2017
5 Beiträge

AW: Timer

15. Apr 2017, 10: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...