Zitat von
Lotus:
Ich persönlich möchte gar nichts mit diesem Datensatz anfangen. Es geht nur darum, das ich in ein paar Tagen meine Prüfung (Abitur) in Informatik ablegen muss und mein Lehrer stellt gern einmal solche Aufgaben wo man den Speicherbedarf ermitteln soll. Dürfte normalerweise kein Problem darstellen, aber nur um sicherzugehen wollte ich halt mit sizeof nachprüfen. Mit packed dürfte das ja nun ganz gut funktionieren.
Jupp, bei Packed brauchst du ja nur die Größen der Einzelteile bestimmen, zusammenrechnen und fertig.
Bei ungepackten/ausgerichteten Records:
der Beispielrecord:
Delphi-Quellcode:
daten = record
S: String[10];
B: Byte;
i: Integer;
K: Int64;
P: Pointer;
W: Word;
end;
entweder du stellst dir ein Raster vor
per Standard also mit 4 Byteschritten (Integergrenzen)
und richtest nacheinander die Elemente an den Grenzen aus
Delphi-Quellcode:
// packed / packed[1] 30 Byte
sSSSSSSSSSSBiiiiKKKKKKKKPPPPWW
// unpacked / packed[4] 36 Byte = 9 * 4[Integer]
1---2---3---4---5---6---7---8---9---
sSSSSSSSSSS B iiiiKKKKKKKKPPPPWW
// unpacked / packed[8] 56 Byte = 7 * 8[Int64]
1-------2-------3-------4-------5-------6-------7-------
sSSSSSSSSSS B iiii KKKKKKKKPPPP WW
// unpacked / packed[2] 32 Byte = 16 * 2[Word]
1-2-3-4-5-6-7-8-9-0-1-2-3-4-5-6-
sSSSSSSSSSS B iiiiKKKKKKKKPPPPWW
oder du rundest jedes Element auf die Gittergrößen auf
und rechnest dieses nur noch zusammen
Code:
. SizeOf/
packed packed[4] packed[8] packed[2]
S: String[10]; 11 3*4= 12 2*8= 16 6*2= 12
B: Byte; 1 1*4= 4 1*8= 8 1*2= 2
i: Integer; 4 1*4= 4 1*8= 8 2*2= 4
K: Int64; 8 2*4= 8 1*8= 8 4*2= 8
P: Pointer; 4 1*4= 4 1*8= 8 2*2= 4
W: Word; 2 1*4= 4 1*8= 8 1*2= 2
=30 =36 =56 =32