TFileStream mit dynamischen Array

[Chewie]

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.