AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Größe von Records

Ein Thema von striderx · begonnen am 26. Jun 2018 · letzter Beitrag vom 27. Jun 2018
Antwort Antwort
Seite 1 von 2  1 2   
striderx

Registriert seit: 11. Feb 2007
Ort: Bergisch Gladbach
206 Beiträge
 
Delphi 10.4 Sydney
 
#1

Größe von Records

  Alt 26. Jun 2018, 17:35
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).

???
  Mit Zitat antworten Zitat
freimatz

Registriert seit: 20. Mai 2010
1.441 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: Größe von Records

  Alt 26. Jun 2018, 17:37
Gurgle mal nach "delphi record alignment".
Das integer wird sicherlich ausgerichtet, die Bytes nicht.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.004 Beiträge
 
Delphi 12 Athens
 
#3

AW: Größe von Records

  Alt 26. Jun 2018, 17:39
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
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
striderx

Registriert seit: 11. Feb 2007
Ort: Bergisch Gladbach
206 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: Größe von Records

  Alt 26. Jun 2018, 18:28
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?

Geändert von striderx (26. Jun 2018 um 18:46 Uhr)
  Mit Zitat antworten Zitat
hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.273 Beiträge
 
Delphi 10.4 Sydney
 
#5

AW: Größe von Records

  Alt 26. Jun 2018, 19:40
Hallo,

tRec2 = record

ersetzen durch

tRec2 = packed record

Wie schon weiter oben gesagt wurde.
Heiko
  Mit Zitat antworten Zitat
striderx

Registriert seit: 11. Feb 2007
Ort: Bergisch Gladbach
206 Beiträge
 
Delphi 10.4 Sydney
 
#6

AW: Größe von Records

  Alt 26. Jun 2018, 20:07
Zitat:
ersetzen durch

tRec2 = packed record
Dann passen aber die vorhandenen Daten nicht mehr dazu ...
  Mit Zitat antworten Zitat
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.767 Beiträge
 
Delphi 10.4 Sydney
 
#7

AW: Größe von Records

  Alt 26. Jun 2018, 20:28
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
Klaus
  Mit Zitat antworten Zitat
hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.273 Beiträge
 
Delphi 10.4 Sydney
 
#8

AW: Größe von Records

  Alt 26. Jun 2018, 20:56
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.
Heiko
  Mit Zitat antworten Zitat
striderx

Registriert seit: 11. Feb 2007
Ort: Bergisch Gladbach
206 Beiträge
 
Delphi 10.4 Sydney
 
#9

AW: Größe von Records

  Alt 26. Jun 2018, 21:16
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.
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#10

AW: Größe von Records

  Alt 26. Jun 2018, 22:15
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
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:49 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz