Zitat:
case Bytewise: Boolean of
Jupp, das hier ist auch ein Feld, also ein zusätzliches Byte.
Und duch die Speicherausrichtung {$ALIGN rutscht dein Timestamp eine "ganze" Position weiter, womit der Record dann enorm anwächst.
Bei Packed, wird der Freiraum zwischen diesem Byte und deinem Timestamp weggelassen,
es bleibt aber dennoch ein Byte zuviel.
Zitat:
case Boolean of
Ist nur die Vaianten-Deklaration, ohne dieses Byte;
Delphi-Quellcode:
TVariantDateTime = record
Bytewise: Boolean;
case Boolean of
false : (TimeStamp:TDateTime);
true : (Bytes:array[0..7] of UInt8);
end;
Deine Variante und diese Variante kann man nutzen, um sich zu merken was man gespeichert hat.
Ähnlich wie beim "richtigen"
Variant, welcher intern auch bissl anders ausschaut,
siehe System.pas > TVarData und "Variant type codes" ala varInteger (Delphi) bzw. vt_i4 (
WinAPI)