Habe folgenden Sachverhalt:
Delphi-Quellcode:
type x = record
x1 : string [255];
x2 : string [40];
x3 : string [80];
x4 : string [50];
x5 : string [4];
x6 : byte;
end;
y = record
y1 : string [255];
y2 : string [80];
y3 : string [40];
y4 : string [20];
y5 : byte;
y6 : byte;
y7 : byte;
y8 : byte;
end;
z = record
z1 : x;
z2 : array of y;
end;
var myZ : z;
procedure saveZToFile;
var zf : TFileStream;
begin
fz := TFileStream.Create ('test.dat', fmCreate);
fz.WriteBuffer (myZ, SizeOf(myZ));
fz.free;
end;
procedure loadZFromFile;
var zf : TFileStream;
begin
fz := TFileStream.Create ('test.dat', fmOpenRead);
fz.ReadBuffer (myZ, SizeOf(myZ));
fz.free;
end;
Mein Problem ist nun, dass der aktuelle Datensatz nicht richtig gespeichert wird, wobei
anscheinend die SizeOf Methode nicht die richtige Größe ermittelt. Durch testen ist mir
aufgefallen, dass es damit zusammenhängt, dass das Array dynamisch ist bzw. wenn Strings
nicht in der Länge terminiert sind.
Aber zur Laufzeit ist myZ genau bestimmt und das Array mittels SetLength auch begrenzt auf
wenige Datensätze.
Wie kann ich nun dieses Konstrukt speichern und laden???
Was hab ich missverstanden? Die entstehende Datei beim speichern ist 440 Byte groß also
ca die Größe von x.
Hoffe Ihr könnt mir helfen
