tDate-Vergleich Delphi 10.2.2 vs. 10.3.2

[striderx]

@timog

Mit SameDate kommt auch unter 10.3.2 das richtige Ergebnis.

In dem nachstehenden Beispiel wird nur die erste MessageBox aufgerufen:

Delphi-Quellcode:

procedure TdlgExhibitions.Button1Click(Sender: TObject);

var
  T: tDate;

begin
  T := aexhibitions[cre].StartDate;
  dtp1.Date := T;
  if T <> dtp1.Date then ShowMsg('1', '', mb_OK, mb_IconExclamation);
  if not SameDate(T, dtp1.Date) then ShowMsg('2', '', mb_OK, mb_IconExclamation);
end;

@hoika
Laut Dokumentation ist datetimepicker.date aber vom Type tDate. Und die Frage ist doch: Wieso kommt 10.3 ein anderes Ergebnis als unter 10.2.