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;