Zeit ablaufen lassen

[mindforce]

Jo an alle.

VIELEN DANK für eure Hilfe.
Soweit ich alle Code´s ausprobiert habe ist der erste am besten.

Aber den

Delphi-Quellcode:

ar
FTime : TDateTime;

procedure StartCountdown(AnzSekunden : Integer);
begin
FTime:=IncSecond(Now,AnzSekunden);
Timer1.enabled:=True;
end;

//Timerintervall auf 1000
procedure TForm1.Timer1Time(Sender : TObject);
begin
if Now > FTime then
begin
ShowMessage('BOOOM');
Timer1.enabled:=False;
end;
end;

kann ich nicht deklarieren. Ich bin zu dumm dafür.

VIELEN DANK AN ALLE.

Gruss,

Mindforce

[Schaedel]

1. Was bringt er für nen Fehler
2. Wo bleibt er stehen.
3. Was kannst du nicht deklarieren?

[mindforce]

Ich schnall das nicht wie man manuelle "functions" und "producer"s deklariert.
KEINER kanss mir beibringen!

[malo]

Zitat von mindforce:

Ich schnall das nicht wie man manuelle "functions" und "producer"s deklariert.
KEINER kanss mir beibringen!

www.dsdt.info/grundlagen

[inherited]

Zitat von mindforce:

[...]

Delphi-Quellcode:

var
FTime : TDateTime;

procedure StartCountdown(AnzSekunden : Integer);
begin
FTime:=IncSecond(Now,AnzSekunden);
Timer1.enabled:=True;
end;

//Timerintervall auf 1000
procedure TForm1.Timer1Time(Sender : TObject);
begin
if Now > FTime then
begin
ShowMessage('BOOOM');
Timer1.enabled:=False;
end;
end;

kann ich nicht deklarieren. Ich bin zu dumm dafür.

VIELEN DANK AN ALLE.

Gruss,

Mindforce

Die musst du garnicht deklarieren. Schreib sie einfach so irgendwo unter implementation hin

Timer1.enabled:=True; wohl eher
Form1.Timer1.enabled:=True; €dit: oh, hoffe das kommt nich zu spät?

Code:

Mindforce
ehem. Benutzer