Programmzustand speichern und laden

[sakura]

Werte speichern

Delphi-Quellcode:

procedure TfrmMaim.SaveValues;
begin
  with TIniFile.Create('game.ini') do
  try
    WriteString('info', 'Letzter Spieler', FLastPlayer);
    WriteInteger('highscore', 'Beste Punktzahl', FHighScore);
  finally
    Free;
  end;
end;

Werte laden

Delphi-Quellcode:

procedure TfrmMaim.LoadValues;
begin
  with TIniFile.Create('game.ini') do
  try
    FLastPlayer := ReadString('info', 'Letzter Spieler', '');
    FHighScore := ReadInteger('highscore', 'Beste Punktzahl', 0);
  finally
    Free;
  end;
end;