rec.Count gibt die Länge des Arrays an, ist also vor dem Schreiben identisch mit Length(Array). Ich benutz das nur, damit ich später beim Einlesen die Länge des Arrays weiß, denn die brauch ich ja. Den Code fürs Einlesen schreib ich dir jetzt, hatte vorhin keine Zeit mehr.
Delphi-Quellcode:
type
TMyRec = record
Data1: Integer;
Count: Integer;
Vals: Array of Integer;
end;
var
fs: TFileStream;
rec: TMyRec;
begin
fs := TFileStream.Create({wieauchimmer});
fs.Read(rec, Sizeof(rec) - Sizeof(Pointer)); //wir lesen die ersten beiden Felder ein
SetLength(rec.Vals, rec.Count); //wir setzen die Anzahl der Elemente auf den
//Wert, den wir eben eingelesen haben
fs.Read(rec.Vals^, rec.Count * Sizeof(Integer)); //nun lesen wir den Inhalt des Arrays ein
fs.Free;
end;
Wenn du nun einen Array of Record benutzt, musst du beim Lesen und schreiben halt die Länge des Arrays mit Sizeof(RecordTyp) multiplizieren.
Soweit verständlich?
Ach ja, eine Variante, ein dynamisches Arrays so in ein statisches umzuwandeln, kenn ich leider nicht.