Moin, ich habe ein kleines Spiel programmiert. Es arbeitet hauptsächlich mit Variblen, die je nach Aktion gesetzt werden.
Jetzt wird Variable1 während des Spiels auf 100 gesetzt, Variable2 auf 10. Wenn man dann keine Lust mehr hat, kann man auf speichern klicken und die Variablen werden in einer Stringlist gespeichert:
Delphi-Quellcode:
procedure TForm1.SaveClick(Sender: TObject);
var Save: TStringList;
begin
Save:=TStringList.Create;
try
Save.Add(FloatToStr(Variable1));
Save.Add(FloatToStr(Variable2));
Save.SaveToFile(...\Save.txt');
finally
Save.free;
end;
end;
Bis dahin klappt das auch sehr gut...
Beim nächsten Programmstart wird dann gesucht, ob die Datei ...\Save.txt vorhanden ist. Wenn ja, dann wird die Prozedur VariablenLaden aufgerufen.
Delphi-Quellcode:
if FileExists('...\Save.txt')
then VariablenLaden else VariablenNeu;
VariablenNeu wird also nur beim ersten Start aufgerufen und die Variablen werden am Anfang auf Standardwerte gesetzt.
VariablenLaden soll die in der Stringlist gespeicherten Variablen 1 und 2 laden. Da weiß ich jetzt nicht weiter.
In meiner .Txt steht jetzt:
100
10
__________
Doch ich weiß nicht, wie ich jetzt die Variable1 auf die erste Zeile setzten kann, die Variable2 auf die zweite Zeile.
Die Variablen sind : real, ich möchte jedoch auch einen ganzen Text einer String-Variablen in der gleichen Datei speichern.
Was muss ich tun???
Liebe Grüße!