Zitat:
Nicht das das speichern funktioniert, aber das einlesen nicht...
Funny!
In der Ini File steht:
Code:
[Optionen]
Name=Citybreaker
Punkte=5
Die If Abfrage sieht folgendermaßen aus!
Delphi-Quellcode:
begin
Dead;
Spiel.Power.Progress := Spiel.Power.Progress-10;
if Spiel.Power.Progress = 0 then
begin
Player.Dead;
Spiel.Timer.Enabled := false;
Spiel.Draw.Visible := false;
Spiel.GameOver.Visible := true;
if Spiel.Punkte.Position > StrToInt(Spiel.Highscore.Text) then
begin
Spiel.Label3.Visible := true;
Spiel.Edit2.Visible := true;
Spiel.Button1.Visible := true;
end;
end;
end;
Es wird ein Editfeld für den Namen und ein Button zum bestätigen sichtbar!
Wenn man auf den Button klickt. Soll der Name gespeichert werden!
Delphi-Quellcode:
var Ini: TInifile;
begin
// Speichern
Ini:=TIniFile.Create(ExtractFilePath(application.Exename)+'data.dat');
Ini.WriteString('Optionen', 'Name', Spiel.Edit2.Text);
Ini.WriteString('Optionen', 'Punkte', Spiel.Highscore.Text);
Ini.Free;
// Ende
Spiel.Close;