Dynamisches Array aus Filestream lesen ?

[malte_M]

Hallo,
ich habe schon wieder ein Problem.

Ich speichere mit folgender Methode ein dynamisches Array in eine Datei via TFilestream

Delphi-Quellcode:

type
  TMyRecord = Record
    channel:Byte;
    duration:Integer;
 end;

Var
 bwl1 : Array of TMyRecord;

//Hier wird dann damit gearbeitet

Procedure SaveToFile;
var
  f: TFileStream;
  i: integer;
begin
  f := TFileStream.Create(ExtractFilePath(Paramstr(0))+'iv1.dat',fmCreate);
  try
    for i := 0 to high(bwl1) do
      f.write(bwl1[i],sizeOf(TMyRecord));
  finally
    f.free;
  end;
end;

Ob der Code funktioniert, weis ich nicht, weil ich es nicht hinbekomme die Daten wieder in ein Array einzulesen.

Kann mir jemand einen Tipp geben, wie ich das machen kann?

Gruß Malte