int64 zu tDateTime?

[peschai]

Hallo
Beide haben 8 Bytes (TDateTime ist ein Double)
Folgende Lösungsvariante mithilfe von "ABSOLUTE". Aber Achtung kein sauberer Programmierstil ...
Desweiteren solltest du mal überprüfen, ob du wirklich so etwas benötigst ...

Delphi-Quellcode:

procedure TForm1.Test1;
var
  i1:int64;
  d2:tDateTime;
  i3:int64 absolute d2;
begin
  // Bei folgendem schimpft der compiler
  i1 := Int64(d2);
  d2 := TDateTime(i1);
  // das folgende geht ...
  i3 := 1;
  d2 := 0.0;
  if (i3=0) then
    begin
      // beachte das "absolute"
      // damit ist i3 automatisch auch Null, da die 8 Bytes von d2 auch mit dem Namen i3 ansprechbar sind ...
      // Sauberer Programmierstil ist das aber nicht ...
    end;
end;