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

markieren

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

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.

markieren

Delphi-Quellcode:

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

Grüße
Klaus

Das war es. Vielen Dank!!!

packed records sind langsamer im Zugriff.

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)

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

Zitat von Iwo Asnet:

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.

markieren

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

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

Trotzdem danke an alle...

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

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

zusammenfalten · markieren

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.