Hallo Zusammen!
Ich bin gerade dabei ein Point & Click Adventure zu schreiben, funktionier alles soweit auch ganz gut (dank dem Forum...
). Nun möchte ich ein Speicher/Lade system einbauen, das folgendermaßen funktioniert:
Während dem Spiel werden bei errecihen bestimmter Stellen Variablen gesetzt und deren werden in einer Stringlist gesichert. Zum laden sollen diese wieder aus der Stringlist extrahiert werden, und in die Variablen geschrieben werden.
Das Speichern klappt ohne Probleme(die Textdatei wird mit korrektem Inhalt erzeugt), nur beim laden bekomme ich folgende Fehlermeldung:
http://www.8ung.at/warp-speed/public/Fehler.jpg
Hier mal der Code (die verwendete Variable (a) ist ein Beispiel)
Code:
var
Form1: TForm1;
save: Tstringlist;
a: integer;
implementation
procedure speichern;
begin
save := TStringList.Create;
try
save.Insert(0, inttostr(a));
save.savetofile('c:\bsp.txt');
finally
Freeandnil(save);
end;
end;
procedure laden;
begin
save.LoadFromFile('c:\bsp.txt') ;
try
a:=strtoint(save.Strings[0]);
finally
freeandnil(save);
end;
end;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
a:= strtoint(edit1.Text);
speichern;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
laden;
if a = 1 then begin
label1.Left := label1.Left + 20;
end;
end;
end.
Währe super wenn mir da jemand weiterhelfern könnte!
Gruß Beatmaster S
