Zeit ablaufen lassen

[mindforce]

Hi,

ich brauche einen Code womit man ein Countdown z.B. von 15 sek auf 0 Zählen kann. Dann sollte ein showmessage auftauchen.
Kann mir da jemand helfen?

Gruss,

Mindforce

/Edit: Ja hab ich ja ausprobiert. Aber rückwärts weiss ich nicht wie man das mit dem Timer macht. Ich weiss nur wie man die Uhrzeit und/ oder Datum anzeigt.
---

[Schaedel]

Warum nimmst du nicht einfach einen TImer?

[Schaedel]

Also du gibst den start vor...
start := 15...

dann stellst du den Timer auf eine Sekunde ein...

Immer wenn der Timer ausgelöst wird soll er Start -1 machen.
Wenn Start = 0 dann Showmessage('Boom');

// edit

Delphi-Quellcode:

// Start private deklarieren...

procedure TFMailverwaltung.Button1Click(Sender: TObject);
begin
  start := 15;
  timer2.Enabled:= true;
end;

procedure TFMailverwaltung.Timer2Timer(Sender: TObject);
begin
 start := start -1;
 if start = 0 then begin showmessage('boom'); timer2.Enabled := false;  end;
end;

[mindforce]

Vielen Dank für deine Antwort.

Werde ich ausprobieren sobald mein PC wieder richtig funzt.

Grus,

Mindforce

[mindforce]

Ok. Soweit funzt nun mein PC.

Ja. Womit soll ich denn Start deklarieren?

Gruss,

Mindforce

[Schaedel]

Delphi-Quellcode:

private
  Start: integer;

Quasi da...

[chaosben]

Zitat von mindforce:

Ja. Womit soll ich denn Start deklarieren?

Das hängt sehr stark davon ab, was du in "start" speichern willst. Nehmen wir an du möchtest darin einen Button (DelphiTage 2006 ) speichern. Dann wäre der Sinngehalt der nachfolgenden Anweisung gleich Null.start : Integer Aber man könnte diese Anweisung nutzen, um in "start" eine Zahl zu speichern, z.B. dann, wenn man einen Countdown programmieren will ......

[Klaus01]

gestartet wird mit

timer1.enabled:=true gemacht;
timer1.interval:=zeitinsSekunden* 1000:

Allerdings muß man dazu sagen, das die Timerkomponente nicht genau
arbeitet.

Grüße
Klaus

[Danny87]

Du kannst alternativ zu einem Timer auch eine Schleife bauen. Ist aber nicht die Optimale Lösung.

Delphi-Quellcode:

...
var  i : integer;
begin
for i := 14 downto 0 do
  begin
  Sleep(1000);
  Application.Processmessages;
  end;
ShowMessage('Countdown abgelaufen');
end;

gruss daniel

[Schaedel]

Mit sleep friest du aber das ganze Programm ein ... uah...