Inhalt einer Stringlist laden

[Beatmaster S]

Hallo Zusammen!

Ich bin gerade dabei ein Point & Click Adventure zu schreiben, funktionier alles soweit auch ganz gut (dank dem Forum...:hello: ). 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. :gruebel:

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! :-D

Gruß Beatmaster S :coder:

[Bernhard Geyer]

In der Load-Methode fehlt:

save := TStringList.Create

:wink:

[sakura]

Mache das Bild bitte als Anhang ;)
Und ersetze die [ CODE ] Tags durch [ DELPHI ] Tags ;)

und nun zum Laden :mrgreen:

Code:

procedure laden;
begin
[color=#ff0000]  save := TStringList.Create;
  try
   save.LoadFromFile('c:\bsp.txt') ;[/color]
   a:=strtoint(save.Strings[0]);
  finally
    freeandnil(save);
  end;
 end;

...:cat:...

[Luckie]

Desweiteren würde ich sie nicht global deklarieren. Du brauchst sie ja nur in den zwei Routinen.

[Beatmaster S]

Super, jetzt funktioniert alles wie es soll, Danke!! :thuimb:

[sakura]

Zitat:

Zitat von Beatmaster S

Super, jetzt funktioniert alles wie es soll, Danke!! :thuimb:

Das Bild bitte als Anhang. ;)

...:cat:...