Frage zu record

[DelTurbo]

Hi,
ich habe einen Record. Der sieht wie folgt aus.

Delphi-Quellcode:

Type
   TKUIndexDaten = record
      Len      :Word;
      Erased      :Byte;
end;

Wenn ich nun mit SizeOf(TKUIndexDaten) die grösse abfrage, bekomm ich 4 zurück. Lasse ich "Len" weg, bekomme ich richtigerweise eine 1 zurück. Was mache ich falsch?

Danke im voraus

[Klaus01]

Hallo,

2 Byte -> Word
1 Byte padding
1 Byte -> Byte
Summe 4 Byte

Wenn Du ein packed record erstellst, sollte als size 3 Byte herauskommen.

Delphi-Quellcode:

Type
   TKUIndexDaten = packed record
      Len      :Word;
      Erased      :Byte;
end;

Grüße
Klaus

[DelTurbo]

Das war es. Vielen Dank!!!

[Iwo Asnet]

packed records sind langsamer im Zugriff.

[himitsu]

Langsamer: In diesem Fall definitiv nein.

Denn an den Daten selber hat sich nichts geändert, da nur das abschließende Leerbyte verwindet.


Aber im ansonsten jain ... kommt halt immer auf den jeweiligen Aufbau der Daten an und ob die CPU so oder Bytes rumshiften muß.

Im Allgemeinen hat die Speicherausrichtung schon ihre guten Gründe.


PS: Wenn es um Datenrecords für eine Dateiverwaltung oder Datenübertragung/Datenübergabe handelt, dann kommt es eben mehr auf das Format und nicht auf Optimierung an. (es sei denn man hat im Voraus das Datenformat/Protokoll entsprechend optimiert)

[DeddyH]

http://docwiki.embarcadero.com/RADSt...turierte_Typen, da steht es ausführlich.

[p80286]

Zitat:

Zitat von Iwo Asnet (Beitrag 1177648)

packed records sind langsamer im Zugriff.

Ja,
und welche Auswirkung hat das in der Praxis?
und
ob packed oder nicht, ist egal solange Du bei der Record-Definition entsprechende Rücksichten genommen hast.

Delphi-Quellcode:

record 
   a : byte;
   b : word;
   c : integer;
   d : shortstring[8];
end;

Ist da nicht so der Bringer. Ist die Struktur von aussen vorgegeben, dann ist es eh müßig darüber zu diskutieren.

Gruß
K-H

[DelTurbo]

Das ist eine "Fremddatei" die ich einlese. Die hat knapp 200kb. Ich glaube kaum das man da einen Speedverlust bemerkt.

Trotzdem danke an alle...

[mkinzler]

Das Schreiben/Lesen in eine Datei kann aber eine weitere Stolperfalle darstellen. In diesem Fall sollte man auf ein Alignment verzichten und packed verwenden, da sonst Unterschiede in der Plattform Auswirkungen auf die Struktur der Datei haben ( eine unter 32Bit gespeicherte Datei wird dann unter 64Bit falsch interpretiert).

[Iwo Asnet]

Ich würde das nicht tun!
Denn packed records packen manchmal eben nicht so, wie man sich das denkt. Irgendwann (Arrays mit ungerader Länge) wird doch auf das nächst gerade Byte ausgerichtet und -wupps- hat man den Salat.

Lies die Daten lieber explizit über einen Stream Wert für Wert ein: Das geht so schnell, das merkst Du nicht. Spendiere also deinem Record eine Leseroutine

Delphi-Quellcode:

Type
   TKUIndexDaten = record
      Len :Word;
      Erased :Byte;
      Procedure LoadFromStream (stream : TStream);
   end; 

Procedure TKUIndexDaten.LoadFromStream (stream : TStream);
begin
// Hier werden garantiert immer 3 Bytes gelesen (solange Word=2 Byte und Byte=1 Byte lang ist)
  stream.Read (Len, SizeOf(Len));
  stream.Read (Erased, SizeOf(Erased ));
End;

Um nun ein viele Records einzulesen rufst Du für jedes Element einfach die LoadFromStream-Methode auf.