Einzelnen Beitrag anzeigen

Snoop007

Registriert seit: 15. Jan 2003
331 Beiträge
 
Delphi 6 Personal
 
#1

type array of array speichern

  Alt 1. Jun 2003, 18:54
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 ?!
  Mit Zitat antworten Zitat