Datum-Countdown

[Beginner2013]

Delphi-Quellcode:

procedure TForm1.Termincountdown1Click(Sender: TObject);
var
Test : Integer;
begin
Form13.Show;
Form13.Caption := 'Termincountdown';
Test := trunc(StrToDate(Edit10.Text) - date);
Form13.Label5.Caption := InttoStr(Test);
end;

So habe ich es jetzt. Fehler werden keine angezeigt. Wenn Ich aber das Programm ausführe, Kommt immernoch die Fehlermeldung, dass es kein gültiges Datum sei. Habe schon verschiedene Eingabeformate versucht. Leider immer das gleiche :(

[hhcm]

Bist du dir sicher das du dein Datum in Edit10 schreibst?
Die Procedure funktioniert so wie sie da steht.

[Perlsau]

Kommt drauf an, was du eingibst. Kommt der Fehler auch, wenn du z.B. '31.05.2013' eingibst?
Wieso nimmst du nicht einfach einen TDateTimePicker? In dessen OnChance-Ereignis schreibst du dann deinen Code für die Änderung des Label-Captions.
Noch etwas: Mit der Zeit, wenn deine Programme komplexer werden, blickst du nicht mehr durch, wenn du nicht aussagekräftige Variablenbezeichner verwendest: Nicht Edit10, sondern z.B. Edit_DatumEingabe ...

[Beginner2013]

Auch dann kommt die Fehlermeldung...hmm....
Danke für die Tipps. Ich arbeite noch nicht lange mit Delphi und bin gerade dabei mir alles selbst beizubringen.
Habe mit einem "TDateTimePicker" noch nie gearbeitet. Gibt es hierbei was besonderes zu beachten?

[Beginner2013]

Hat es evtl. damit zu tun, dass Edit10 auf einer anderen Form ist als Label5?

[hhcm]

Ich habe immer noch die Befürchtung das du in das falsche Feld schreibst ;)
Schreib doch hinter dein begin mal

Delphi-Quellcode:

showmessage(Edit10.Text);

Oder setz dir einen Breakpoint.

[Perlsau]

Zitat:

Zitat von Beginner2013 (Beitrag 1216541)

Habe mit einem "TDateTimePicker" noch nie gearbeitet. Gibt es hierbei was besonderes zu beachten?

Einfach ausprobieren: TDateTimePicker

[Beginner2013]

Also Edit10 passt :).
Die Fehlermeldung bezieht sich ja auch immer auf das Datum welches ich in Edit10 eingegeben hab.

[hhcm]

Also wenn ein Showmessage(Edit10.Text) z.B 26.05.2013 ausgibt, dann funktioniert auch die Procedure. Bei mir kommt dann -1 in einem Label.

[baumina]

Zitat:

Zitat von hhcm (Beitrag 1216544)

Ich habe immer noch die Befürchtung das du in das falsche Feld schreibst ;)
Schreib doch hinter dein begin mal

Delphi-Quellcode:

showmessage(Edit10.Text);

Oder setz dir einen Breakpoint.

Ja, mach mal das showmessage und zudem noch eins mit

Delphi-Quellcode:

showmessage(datoToStr(date));

damit du sehen kannst was für ein Datumsformat auf deinem Rechner erwartet wird.