Komisches mit variantem record

[TurboMagic]

Hallo,

ich nutze einen varianten Record um auch byteweise auf TDateTime zugreifen zu können.
Soweit so gut, Code siehe hier:

Delphi-Quellcode:

/// <summary>
///   Varianter Record für TDateTime um auf das auch byteweise zugreifen zu können
/// </summary>
TVariantDateTime = record
  case Bytewise: Boolean of
    /// <summary>
    ///   Zeitstempel als Zeitstempel
    /// </summary>
    false : (TimeStamp:TDateTime);
    /// <summary>
    ///   Zeitstempel als Bytes
    /// </summary>
    true  : (Bytes:array[0..7] of UInt8);
end;

var
  dt:TVariantDateTime;

Wenn ich jetzt mit dem Debugger SizeOf(dt) abfrage kommt immer 16 raus,
statt der erwarteten 8. Frage ich SizeOf(dt.TimeStamp) ab, kommt 8 raus.

Warum?

Grüße
TurboMagic

[BerndS]

Das erste Byte ist wohl Bytewise und bei
  TVariantDateTime = packed record kommt dann 1 + 8 = 9 raus.
Ohne packed entscheidet die Compilereinstellung Recordfelder ausrichten über die Größe des Records.

[TurboMagic]

Mit dem Packed hast du wohl recht...

[Uwe Raabe]

Du kannst den varianten Teil auch so schreiben, dann kommt als Größe auch 8 heraus:

Delphi-Quellcode:

TVariantDateTime = record
  case Boolean of
    false : (TimeStamp:TDateTime);
    true : (Bytes:array[0..7] of UInt8);
end;

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