ungültiges Datumsformat!

[thorstenf01]

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

[Keldorn]

Hallo

die Fehlermedlung sagt doch schon alles.
zumindestens hier in Sachsen fangen wir bei den Tagen und Monat mit 1 an zu zählen. z.B. '01.01.00' geht. oder welcher monat ist bei dir 0 ? ansonsten auch in der hilfe zu strtodate guggn, da stehen auch noch hinweise.

Mfg Frank

[thorstenf01]

Hallo noch einmal!
Ich kann jetzt das Programm mit 01:01:00 starten, doch sobald ich etwas
am Datum ändern möchte, werde ich sofort wieder mit der Fehlermeldung : Ungültiges Datumsformat konfrontiert...
Wer hilft noch einmal?
Gruß
Thorsten

[Luckie]

Stoppe den Timer bei der Eingabe und starte ihn erst nach der Eingabe wieder.

[thorstenf01]

Hy,
ich habe versucht, den Timer mit folgender Eingabe zu
unterbrechen, doch es funktioniert noch immer nicht...

Code:

procedure TForm3.Timer2Timer(Sender: TObject); 
begin 

Panel2.Caption :=  TimeToStr(Time); 
Panel1.Caption :=  DateToStr(Date); 

Timer2.Enabled:=False;
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;
Timer2.Enabled:=True; 

end;

Was mach ich denn falsch?
Gruß
Thorsten

[Keldorn]

wo habe ich gesagt, daß du 01:01:00 für ein datum schreiben sollst.
so schreibt man Zeiten, keine Datums. ich habe 01.01.00 geschrieben

edit: Luckie meinte bei der Eingabe, du könntest den Timer im Onenter-ereignis stoppen und beim onexit-ereignis wieder starten. brauchst du nur einmal für ein edit zu schreiben und weist allens anderen Edit im OI die gleichen proceduren zu.

Delphi-Quellcode:

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  timer2.Enabled:=false;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  timer2.Enabled:=true;
end;

[Keldorn]

http://www.swissdelphicenter.ch/de/f...pic.php?t=6716
ich gugg mir die zeiten an und sage nix

[thorstenf01]

Hallo noch einmal,
es funktioniert tatsächlich.
Danke

P.S.: Die andere Anfrage hätte, dank eurer Hilfe nicht, not getan