Moin
Ich hab mir da son Dame Spiel programmiert, alle 24 Steine in ein Array gespeichert und jetzt möchte ich im laufenden Spiel dem Nutzer die Möglichkeit geben, dass er zum 1. Das Spiel speichern kann und 2. Ein Spiel öffnen kann.
Dazu habe ich dann folgendes geschrieben.
Delphi-Quellcode:
procedure TForm1.dateiErstellen;
begin
AssignFile(datei, verz);
ReWrite(datei);
CloseFile(datei);
end;
procedure TForm1.dateiOeffnen;
begin
AssignFile(datei, verz);
reset(datei);
read(datei, tw);
CloseFile(datei);
end;
procedure TForm1.dateiSpeichern;
begin
AssignFile(datei, verz);
reset(datei);
write(datei,tw);
CloseFile(datei);
end;
procedure TForm1.SpielSpeichern1Click(Sender: TObject);
begin
if savedialog1.Execute = true
then
begin
verz := savedialog1.FileName;
try dateispeichern except dateiErstellen; dateiSpeichern;
end;
end;
end;
procedure TForm1.Spieloeffnen1Click(Sender: TObject);
begin
if opendialog1.Execute = true
then
begin
verz := opendialog1.FileName;
try dateiOeffnen except showmessage('Datei nicht vorhanden');
end;
end;
end;
end.
Oben bei den variablen habe ich 2: Variablen genommen und denen ein Recordtyp zugewissen.
Delphi-Quellcode:
var
tw : TTempFigurenPropertys;
datei: file of TTempFigurenPropertys;
Meine Frage jetzt: Wenn ich jetzt auf meine Buttons klicke um zugriff zu Speichern und Öffnen zu bekommen. Bekomme ich kein Datentyp hin um Sie wirklich sicher zu Speichern, noch Schlimmer mein Projekt bleibt hängen bzw bricht ab. Ich kann das also noch nicht vollständig nutzen. Hat da jemand eine Idee?