Forum: Object-Pascal / Delphi-Language
Delphi
by BullsEye,
27. Aug 2008
EDIT: Hab den Fehler gefunden! ShowMessage als letztes setzten :wall:
Forum: Object-Pascal / Delphi-Language
Delphi
by BullsEye,
27. Aug 2008
So gehts, danke..
Allerdings ist mir gerade aufgefallen, das der Countdown an sicht immer eine Sekunde zu wenig zählt.
BSP: Countdown endet um 00:00:00 und jetzt haben wir es 23:59:55 das macht ja eine Differenz von 5 Sekunden.
Allerdings wird angezeigt "Nur noch 4 Sekunden". Das ist ansich ja nicht das Problem, das Problem ist, das ich 2x die Nachricht (ShowMessage) erhalte!
EDIT: Trick 17...
Forum: Object-Pascal / Delphi-Language
Delphi
by BullsEye,
26. Aug 2008
Oo nen Tippfehler :wall: So funktioniert das aber auch!
Irgendwie bin ich mir das gerade unsicher! Für mich ergibt
DateTimePicker1.Time := DateTimePicker2.Time;
keinen Sinn.
Und zwar aus folgendem Grunde.
Forum: Object-Pascal / Delphi-Language
Delphi
by BullsEye,
26. Aug 2008
procedure TForm2.Timer3Timer(Sender: TObject);
VAR
EndDatum : TDateTime;
Aktuell : TDateTime;
Dazwischen : Integer;
Tage, Stunden, Minuten, Sekunden : Integer;
BEGIN
// Countdown
DateTimePicker1.Time := DateTimePicker2.Time;
EndDatum := DateTimePicker1.DateTime;
Forum: Object-Pascal / Delphi-Language
Delphi
by BullsEye,
26. Aug 2008
Das kann nicht sein. Habs trotzdem getestet und es ist genau das rausgekommen, was ich erwartet habe:
jedes mal, wenn zwischen der aktuellen Zeit und der Zeit bis zum Countdown mehr als 0 Sekunden liegen bekomme ich ne Nachricht "Countdown beendet" Sprich ununterbrochen bekomme ich die Meldung