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:

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.

Delphi-Quellcode:

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 ...... :freak:

[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... :shock: