Ein kleiner Countdown zähler

KARL85 · Hält's aus hier Beiträge: 4

Hallo

Ich habe gerade erst mit Delphi angefangen. Könte mir jemande mir sagen wie ich einen Countdown zähler Programieren kann(Oder kann mir jemand sogar einen schicken). Am besten in der Form das ich ein datum 1 mal eingebe und er zählt bis zu diesem Zeitpunkt in HH.MM:SS runter.

Wäre nett wenn mir jemadn schnell helfen könnte

Bis dann
KARL85

dude · Beiträge: 48

einfach eine TTime Variable deklariren und die dann -00:00:01

Beispiel:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure Button1.OnClick(Sender:TObject);
var
  zeit : TTime;
  gesamtzeit
begin
  if gesamtzeit = 00:00:00 then
    begin
      ShowMessage('Die Zeit ist nun abgelaufen')
      gesamtzeit := zeit
    end;
  zeit := StrToTime(Tedit1.text)   //<-da kannst du die anfangszeit eingeben
  gesamtzeit := zeit - StrToTime('00:00:01')

KARL85 · Hält's aus hier Beiträge: 4

Danke für die antwort hat mir sehr geholfen!!!!!!!!!!!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme