Dynamisches Array speichern und einlesen

[Jelly]

Ich habs jetzt irgendwie so hingekriegt:

Delphi-Quellcode:

     FS := TFileStream.Create(txtfilename.text,fmCreate);
     try
        FS.Write(N,sizeof(N)) ;
        for x := 0 to N-1 do
        for y := 0 to N-1 do
           for z := 0 to N-1 do begin
              FS.Write(A[x,y,z],SizeOf(TRecord))
           end ;
     finally
        FS.free ;
     end ;

Das klappt soweit. Auslesen halt analog.

Die Sache mit der Collection wäre auch ne Möglichkeit, allerdings hab ich jetzt schon die ganzen Daten in Arrays vorliegen, und die Zeit fehlt mir das zu ändern.