Datum auf Syntax überprüfen

[Union]

Und so geht es Exceptionfrei UND Thread Safe:

Delphi-Quellcode:

uses MaskUtils;  // Für MaskDoFormatText
var
   Datum : TDateTime;
   FS : TFormatSettings;
begin
   GetLocaleFormatSettings(0, FS);
   FS.ShortDateFormat := 'yy.mm.dd';
   FS.DateSeparator   := '.';
   if not TryStrToDate(MaskDoFormatText('##\.##\.##',edtDatum.Text, ' '), Datum, FS) then
      ShowMessage('Falsch');