TDateTimePicker - wie Einfabefehler abfangen?

[TiGü]

Zitat von NicoleWagner:

ich suche einen Weg, gegen diese Fehleingabe vorzugehen.

Gegeben ist diese Zuweisung:

datum:=DatePlannerPicker1.Date;

wobei
datum => TDateTime;
DatePlannerPicker1 => TPlannerDatePicker; => Typ ist sehr ähnlich einem TDatePicker, dessen modus auf Datum gesetzt wurde

try-Except
wiederum greift nicht, weil Delphi den Fehler abfängt.
D.h. das Programm kommt nicht in den except Block, sondern läuft fröhlich weiter, wenn der 99. Juli lang ist.

Unter der Annahme, dass dies der passende Quelltext ist (Quelle: http://www.bvbcode.com/code/dsepigku-1663452

Delphi-Quellcode:

procedure TPlannerDatePicker.Change;
var
  dt: TDateTime;
begin
  inherited;
  // try to extract the date
  try
    if (Text = '') or
       (Pos(DateSeparator, Text) = 0) or
       (Text = '  /  /  ') then
      Calendar.Date := 0
    else
    begin
      dt := StrToDate(Text);
      Calendar.Date := dt;
    end;  
  except
  end;
end;

Dann schluckt die Komponente die "Fehlermeldung" selbst.
Übrigens wäre es gut, wenn du diese Fehlermeldung kopierst (Strg+C geht bei den meisten Messageboxen/Exceptions) oder ein Screenshot davon machst und bei deinen Beiträgen hinzufügst.
Wahrscheinlich kommt sowas bei rum?

Code:

---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EConvertError with message ''99.07.2020' ist kein gültiges Datum'.
---------------------------
Break   Continue   Help   
---------------------------

Zitat von NicoleWagner:

Was ich will, ist das:

If 'fehlerhaftes Datum' then begin
ShowMessage('Datum im DatePicker fehlerhaft');
exit;
end;

Danke für Arbeitstipps!

Ein Prüfen mit SameDate würde sich anbieten.
Konsolen-Programm-Beispiel:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  System.DateUtils;

var
  dt: TDateTime;
  Text: string;

begin
  try
    Text := '99.7.2020';
    dt := StrToDate(Text);
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;

  // hier dann deine Variable datum oder DatePlannerPicker1.Date verwenden
  if System.DateUtils.SameDate(dt, TDateTime(0)) then
  begin
    Writeln('Datum im DatePicker fehlerhaft');
  end;
  Readln;
end.