Komisches mit variantem record

[Der schöne Günther]

Ich würde das aber ehrlich gesagt nicht als varianten Record machen. Eigentlich sind "class helper" dazu die bessere Wahl.

Nicht umsonst haben Single und Double das auch schon fest eingebaut sodass du z.B. sagen kannst meinSingle.Bytes[3] .

[TurboMagic]

Wenn das schon als CLassHelper drin ist noch besser. Stelle dann evtl. morgen darauf um.

[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)