Komisches mit variantem record

[himitsu]

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)