When in Rome do as the Romans do.
Das verwendete Datumsformat bestimmt unter Windows der Benutzer, indem er die Systemeinstellungen an seine Vorlieben anpasst. Dein Programm kennt nach dem Programmstart diese Einstellungen, weil die
Unit SysUtils ihre globalen Variablen entsprechend initialisiert. Für dich bedeutet das, dass du es einfacher angehen kannst:
Delphi-Quellcode:
var
dt: TDateTime;
begin
if TryStrToDate(DatumEdit.Text, dt)
then ShowMessage(Format('Datum "%s" ist OK', [DateToStr(dt)]))
else ShowMessage(Format('"%s" ist kein gültiges Datum', [DatumEdit.Text]));
end;
Die Funktion mit zusätzlichem Parameter FormatSettings ist eigentlich nur für Datenkonvertierungen interessant.
marabu