Hallo, ich bins wiedereinmal
Also ich habe vor, für ein Programm einen Countdown zu schreib. Aber da ich mich erstmal an dem Countdown selbst versuchen wollte, hab ich nen neues Projekt gemacht.
Ich versuche es mit einer Art "Abgleich". Ich gebe die aktuelle Zeit auf nem Label aus, dies wird bzw soll mit den Eingaben aus 2 Edits verglichen werden. 1 Edit für das Datum und 1 Edit für die Uhrzeit.
Und wenn die Eingaben in den Edits mit den auf den Labels übereinstimmen, soll eine selbst gewählt Nachricht (Aus Edit 3) erscheinen.
Wenn ich das nur mit dem Datum oder nur der Uhrzeit mache geht es aber nicht wenn ich beides zusammen habe.
Die Zeit etc lese ich hiermit aus:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
VAR Hour, Min, Sec, mSec: Word;
begin
Label1.Caption := TimeToStr(Time);
Label2.Caption := FormatDateTime ('"Heute ist" dddd, "der" d mmmm yyyy" ', Date);
Label3.Caption := DateToStr(date);
DecodeTime(time, Hour, Min, Sec, mSec);
ProgressBar2.Position := hour;
ProgressBar3.Position := min;
ProgressBar4.Position := sec;
ProgressBar5.Position := msec;
end;
Die Progressbars dienen nur zum test sind aber vollkommen unerheblich.
Dann hab ich dies und auch schon viel Ähnliches probiert, haut aber nicht hin.
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
IF Edit1.Text = Label3.Caption THEN BEGIN
END AND
IF Edit2.Text = Label1.Caption THEN BEGIN
ShowMessage(Edit3.Text);
END;
end;
Ich hab mir schon einige dinge für nen Countdown angeschaut aber dann geht einmal der Code nicht, das andere mal kann ich nicht selbst eine Eingabe tätigen. u.ä.
Sicherlich gibt es auch noch bessere Möglichkeiten für nen Countdown aber besser gings gerade nicht^^
Ich hoffe ihr könnt mir da helfen