Also erstmal zu dem :
length(A) * sizeof(A[0]
bei einem 10 mal 10 array ergibt das 40 und keine hundert...
hab ich da was falsch verstanden??
Und kann mir das nochmal jemand erklären ich habe nämlich das gleiche Problem nur bei mir funktioniert das ganze ganz und gar nicht....
Wenn ich mein dyn. Array Speicher speichert er das nicht vollständig ab und das lesen klappt dann gar nicht.
Das wäre meine Procedure zum Laden:
Delphi-Quellcode:
procedure TForm1.LadenClick(Sender: TObject);
var FS : TFileStream;
svMatrix : array of array of integer;
begin
if OpenDialog1.Execute then
begin
FS := TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
try
FS.Read (svMatrix[0], length(svMatrix) * sizeof(svMatrix[0]) ;
finally
FS.free ;
end ;
end;
end;
und das zum Speichern....
Delphi-Quellcode:
procedure TForm1.SpeichernClick(Sender: TObject);
var FS : TFileStream;
svMatrix : array of array of integer;
begin
if SaveDialog1.Execute then
begin
FS := TFileStream.Create(SaveDialog1.FileName,fmCreate);
try
FS.Write (svMatrix[0], length(svMatrix) * sizeof(svMatrix[0]) ;
finally
FS.free ;
end ;
end;
end;
Habe das mit ner einfachen for Schleife bei mir mit Werten belegt aber beim einlesen kommt nix.
Was mache ich falsch?