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.