Hi,
ich würde gern
Delphi-Quellcode:
type
TArrayX = array of array of string[255];
in eine datei speichern und den inhalt auslesen
mein speichern sieht so aus
Delphi-Quellcode:
...
type
TDatenSchreiben = class
Datenschreiben : TArrayX;
end;
...
procedure TFWDaten.SaveToFile;
var
xFile : File of TDatenSchreiben;
x : TDatenSchreiben;
begin
x := TDatenSchreiben.Create;
x.Datenschreiben := FDatenErstellt.value;
FDatenErstellt.FTArray := nil;
AssignFile(xFile,FFileName);
rewrite(xFile);
seek(xFile,length(x.Datenschreiben));
Write(xFile,x);
CloseFile(xFile);
x.Free;
end;
und das laden
Delphi-Quellcode:
procedure TFWDaten.LoadFromFile;
var
xFile : File of TDatenSchreiben;
x : TDatenSchreiben;
begin
x := TDatenSchreiben.Create;
FDatenGeladen := TStringArray.Create;
AssignFile(xFile,FFileName);
reset(xFile);
seek(xFile,1);
Read(xFile,x);
FDatenGeladen.value := x.Datenschreiben;
x.Free;
CloseFile(xFile);
end;
leider geht das nicht so wie ich es mir erhofft habe,
kann ich das überhaupt so machen; oder ist das blödsinn und sollte das ganze lieber lassen ?!