Dynamisches Array speichern und einlesen

[Chewie]

Du musst deinen Code nur minimal abändern:

Code:

var
  A : array[0..99,0..99,0..99] of double ;
begin
     FS := TFileStream.Create(txtfilename.text,fmCreate);
     try
        FS.Write (A[b][0][/b], [b]length(A) * sizeof(A[0][/b]) ;
     finally
        FS.free ;
     end ;
end ;

Grund: dynamische Array-Variablen sind nur Zeiger auf das Array. TFileStream.Write verlangt aber keine Adresse, sondern ein Datum, und das lieferst du mit A[0]. Und die Größe des Arrays im Speicher ist die Anzahl der Elemente mal der Größe eines Elements.