[TFileStream]-Speichern/Auslesen funktioniert nicht richtig

[Hawkeye219]

Sorry, ich habe ganz übersehen, daß du in deinem Record ja bereits ShortStrings verwendest. Diese sind nicht immer 256 Bytes lang, ihre Länge wird durch die Definition festgelegt (max. 255 Zeichen). Hinzu kommt dann noch ein Längenbyte (das "Zeichen" mit dem Index 0).

ShortStrings kannst du direkt (ohne Hilfsvariable) speichern und laden:

Delphi-Quellcode:

// Speichern
container.Write(XFCSignature[0], SizeOf(XFCSignature));

// Laden
container.Read(XFCSignature[0], SizeOf(XFCSignature));

Das Speichern und Laden des Cardinal-Arrays könntest du so durchführen:

Delphi-Quellcode:

// Speichern
container.Write(FHeader.FileCount, SizeOf(FHeader.FileCount));
if (FHeader.FileCount > 0) then
  container.Write(FHeader.Sizes[0], FHeader.FileCount * SizeOf(FHeader.Sizes[0]));

// Laden
container.Read(FHeader.FileCount, SizeOf(FHeader.FileCount));
SetLength (FHeader.Sizes, FHeader.FileCount);
if (FHeader.FileCount > 0) then
  container.Read(FHeader.Sizes[0], FHeader.FileCount * SizeOf(FHeader.Sizes[0]));

Gruß Hawkeye