Speichern eigener klasse

[Kolone]

Na gut hier der Quellcode

Meine Klasse ist wie folgt aufgebaut. Gilt für ein Programm für Veranstaltungen. "Karte" ist eine Image...

Delphi-Quellcode:

type
    Tort=class
    bezeichnung:String;
    ortX:integer;
    ortY:integer;
    
  end;


  TVeranstaltung=class
  public
      name:String;
      karte:String;
      art:String;
      station:array of Tort;
  end;

Vorher wurde eine Klasse schon erstellt...

markt:=TVeranstaltung.Create;

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var Datei:File of TVeranstaltung;

begin

if SaveDialog1.Execute then
begin
 AssignFile(Datei, SaveDialog1.FileName+'.dat');
 Rewrite(Datei);
 Write(Datei,Markt);
 CloseFile(Datei);

end;
end;

Und der Versuch zu laden:

Delphi-Quellcode:

procedure Form1.Button1Click(Sender: TObject);
var Datei: File of TVeranstaltung;
temp:TVeranstaltung;
begin
if OpenDialog1.Execute then
begin
temp:=TVeranstaltung.Create;
AssignFile(Datei,OpenDialog1.FileName);
Reset(Datei);
Read(Datei, temp;




end;