Größe von Records

[striderx]

Hallo zusammen,

Wenn ich mit SizeOf die Größe der Records

Delphi-Quellcode:

     
tRec1 = record
          I:  Integer;
        end;

tRec2 = record
          B1:  Byte;
          B2:  Byte;
          B3:  Byte;
          B4:  Byte;
        end;

überprüfe, kommt wenig überrachend jeweils 4 heraus.

Wenn ich aber die Records

Delphi-Quellcode:

tRec3 = record
          S1:  String[50];
          I:   Integer;
          S2:  String[50];
    end;
tRec4 = record
          S1:  string[50];
          B1:  Byte;
          B2:  Byte;
          B3:  Byte;
          B4:  Byte;
          S2:  String[50];
         end;

bekomme ich einmal 108 und einmal 106. Erwartet hätte ich beides mal 106 (2 * 51 + 4).

???

[freimatz]

Gurgle mal nach "delphi record alignment".
Das integer wird sicherlich ausgerichtet, die Bytes nicht.

[himitsu]

Da hast du falsch erwartet.

Bei PACKED RECORDs kannst du so vorgehen, aber ansonsten wird Speicher ausgerichtet "aligned".

Integer ist 4 Byte, Standard-ALIGN ist aktuell 8 (das ist das Maximum ... auf 2 Gestellt wird Interger auf 2 Byte ausgerichtet)

Dass heißt, dass sich Integer bei dir so nach hinten verschiebt, dass es immer auf ganzen 4-Byte-Grenzen beginnt. => Lücke zwischen S1 und I
String[x] besteht aus vielen Bytes und wird demnach an Byte-Grenzen ausgerichtet (Align=1).

Delphi-Quellcode:

tRec1 = record
          B: Byte;
          I: Integer;
        end;

Size=8

[striderx]

Hm, das ist ja interessant.

Der Hintergund für meine Frage: Ich möchte bei einem varianten Record den Integer in Rec3 durch einen Enum-Typen (< 255) ersetzten. Derzeit habe ich mir damit beholfen, dass ich den Enum-Typen mit {$Z4} auf eine Größe von vier Bytes zwinge.

Wie ich ausprobiebert habe, müsste das auch mit folgender Deklaration gehen:

Delphi-Quellcode:

tRec2 = record
          S1:  string[50];
          B1:  Byte;
          B2:  Byte;
          B3:  Byte;
          B4:  Byte;
          B5:  Byte;
          E:   tEnum;
          S2:  String[50];
        end;

Rec2 hat dann auch die Größe von Rec1, nämlich 108.

So ganz wohl ist mir bei dem Ganzen aber nicht. Wie würdet ihr das ggf. lösen?

[hoika]

Hallo,

tRec2 = record

ersetzen durch

tRec2 = packed record

Wie schon weiter oben gesagt wurde.

[striderx]

Zitat:

ersetzen durch

tRec2 = packed record

Dann passen aber die vorhandenen Daten nicht mehr dazu ...

[Klaus01]

Zitat von striderx:

Zitat:

ersetzen durch

tRec2 = packed record

Dann passen aber die vorhandenen Daten nicht mehr dazu ...

verstehe ich jetzt nicht so ganz.
Hast Du mal Beispieldaten?

Grüße
Klaus

[hoika]

Hallo,
das packed sorgt dafür, dass Variablen des Records wirklich Byte für Byte hintereinander liegen,
und nicht aus Performance-Gründen an bestimmten Byte-Grenzen ausgerichtet werden.

[striderx]

Die Daten sind mit dem ungepackten Format gespeichert worden. Wenn ich jetzt versuche, sie in das gepackte Format einzulesen, passt das nicht mehr.

Ich könnte natürlich eine Konvertierungs-Routine schreiben, aber bei 8 Varianten mit jeweils 30 Feldern suche ich halt nach einem Weg, der deutlich weniger aufwändig ist.

[p80286]

wie wäre es mit

Delphi-Quellcode:

Myrec=packed record of
        S1:string[50];
        d1:array[0..1] of Byte; { Füller}
        I1:integer;
        S2:string[50];
end;

Mann könnte I1 auch durch B1,B2,B3,B4 (Byte) oder W1,w2 (word) oder Card1 (cardinal) ersetzen.

Gruß
K-H