Hallo,
hatte mich schon ein bisschen belesen, was das Laden bzw,Speichern von Dynamischen Arrays angeht.
Nur Irgendwie will der Code nich klappen, abgespeichert wird irgendwas(keine Ahnnung was).
Und beim Laden ist hinterher nix in der Array;
Fehlermeldungen:nicht bekannt;
Die Dynamische Array;
Delphi-Quellcode:
public
MyListe :Array of Byte;
So wollte ichs speichern
Delphi-Quellcode:
procedure TForm1.Speichern1Click(Sender: TObject);
var FS : TFileStream;
i:Integer;
begin
with SaveDialog1 do
begin
Filter := 'Textdateien (*.TXT)|*.TXT';
FileName := 'Firmenbrief.txt';
DefaultExt := 'TXT';
Options := [ofOverwritePrompt]; // Sicherheitsabfrage beim Überschreiben
if Execute then
begin
FS := TFileStream.Create(filename ,fmCreate);
try
for i := Low(MyListe) to High(MyListe) do
fs.write(Myliste[i], Length(Myliste) * SizeOf(Integer));
finally
FS.free
//for i := 0 to length(MyListe)-1 do
//FS.Write (MyListe[i], length(MyListe) * sizeof(MyListe[i]));
//finally
//FS.free ;
end ;
end;
end;
end ;
Und so wollte ich die daten wieder Laden
Delphi-Quellcode:
procedure TForm1.ffnen1Click(Sender: TObject);
var
itag,y,Spalte,Grenze : Integer;
FS : TFileStream;
begin
with OpenDialog1 do
begin
Filter := 'Textdateien (*.TXT)|*.TXT';
DefaultExt := 'TXT';
if Execute then
begin
FS := TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
try
FS.Read (MyListe[0], length(MyListe) * sizeof(Byte)) ;
finally
FS.free ;
end ;
end ;
end;