Hallo, folgendes:
Ich will ein zweidimensionales, dynamisches Array
Delphi-Quellcode:
type aRaumposition = array of array of Boolean;
Raumposition: aRaumposition;
in eine Datei speichern. Meine Speicherprozedur sieht folgendermaßen aus
Delphi-Quellcode:
procedure TForm1.Projektspeichern1Click(Sender: TObject);
var wrProjekt: TWriter;
i: integer;
begin
RegisterClass(TRaum);
SaveDialog.DefaultExt:='map';
SaveDialog.Filter:='Alle Dateien |*.*|Map-Files (*.map)|*.MAP';
SaveDialog.FilterIndex:= 2;
if SaveDialog.execute then
begin
strFile := TFileStream.Create(SaveDialog.FileName, fmCreate);
wrProjekt := TWriter.Create(strFile, 2000);
wrProjekt.WriteString(FRaum.ClassName); // Raumklasse speichern
FRaum.WriteToFile(wrProjekt); // Raumdaten speichern
wrProjekt.destroy; //Writer freigeben
strFile.destroy; // Stream freigeben
end;
end;
Wie krieg ich jetzt die private Variable Raumposition von TForm1 gespeichert? FRaum ist ja eine Instanz und wird über die Prozedur WriteToFile gespeichert, aber wie funzt das bei Variablen?
Danke für eure Hilfe.