Hi habe aktuelles Problem:
Ich möchte 3 Arten Datum einlesen lassen können:
- 1.1.2005
- 2005-01-01
- 1. Januar 2005
Das Erste ist mit der Funktion StrToDate kein Problem. Aber die anderen werden von der Funktion nicht akzeptiert. Wie kann ich das Problem lösen??
Delphi-Quellcode:
procedure TfrmDatum.BitBtn1Click(Sender: TObject);
begin
try
EinleseDatum := editDatumEingabe.Text;
Datum:=StrToDate(EinleseDatum);
// wenns nicht zu except springt, ist alles in ordnung
lbltest.Caption := DateToStr(Datum);
except
// der string war keine gültige Datumseingabe
editDatumEingabe.Text := '';
ShowMessage('Der Eingegebene Wert ist kein Zulässiges Datum! Bitte geben Sie ein gültiges Datum ein');
end;
end;
Gruß The_Tremendous