Hy,
ich habe folgendes Problem:
Ich möchte Datums- sowie Zeiteingaben über TEdit eingeben (Schaltuhr),
bekomme aber beim starten des Programmes den Fehler:
"Ungültiges Datumsformat etc.". Ich habe im Objectinspektor von
Edit im Text 00.00.00 und andere Varianten durchgespielt,
aber keine klappt.
Code:
procedure TForm3.Timer2Timer(Sender: TObject);
begin
Panel2.Caption := TimeToStr(Time);
Panel1.Caption := DateToStr(Date);
try
if (Date >= StrToDate(Edit2.Text)) and (Date <= StrToDate(Edit5.Text)) then timer1.Enabled := true;
if (Time > StrToTime(Edit3.Text)) and (Time < StrToTime(Edit6.Text)) then timer1.Enabled := true;
if (Date >= StrToDate(Edit5.Text)) then timer1.Enabled := false ;
if (Time > StrToTime(Edit6.Text)) then timer1.Enabled := false ;
except
ShowMessage ('Fehler')
end
end;
Wer kann mir helfen?
Gruß
Thorsten