Mehrdimensionales dynamisches Array aus Datei auslesen

[kenuvis]

Hallo,

ich hab nun gegooglet und hier geschaut, ausprobiert und was weiß ich nicht alles, aber ich finde echt keine Lösung. Nach langem hin und her hab ich es geschafft mein Array zu speichern.

Liste: Array of Array of Array of TStringList; ich speichere nun wie folgt:

Delphi-Quellcode:

var
  f: TFileStream;
  a,b,c,d: integer;
  temp: String;
begin
  f := TFileStream.Create(ExtractFilePath(Application.ExeName)+'ArrayDatei',fmCreate);
  try
    for a := 0 to Length(Liste)-1 do
      for b := 0 to Length(Liste[a])-1 do
        for c := 0 to Length(Liste[a,b])-1 do
          for d := 0 to Liste[a,b,c].Count-1 do begin
            temp := Liste[a,b,c][d];
            f.Write(temp,Length(temp));
          end;
  finally
    f.free;
  end;

nun meine Frage, wie bekomm ich die dinger wieder aus der Datei?

MfG Kenu