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