raketensnake

[bitsetter]

Hi,

ein simples Beispiel:

Delphi-Quellcode:

uses IniFiles;
//Speichern
procedure TForm1.Button1Click(Sender: TObject);
var
  IniFile : TInifile;
  Gesamtpunktzahl : integer;
begin
  Gesamtpunktzahl:= 444;//Beispiel

  IniFile := TInifile.Create(ExtractFilePath(Application.ExeName)+ 'SaveGame.ini');
  try
    IniFile.WriteInteger('PunkteZahlen', 'Gesamtpunktzahl', Gesamtpunktzahl);
  finally
    IniFile.Free;
  end;
end;
//Laden
procedure TForm1.Button2Click(Sender: TObject);
var
  IniFile : TInifile;
  Gesamtpunktzahl : integer;
begin
  IniFile := TInifile.Create(ExtractFilePath(Application.ExeName)+ 'SaveGame.ini');
  try
    Gesamtpunktzahl:= IniFile.ReadInteger('PunkteZahlen', 'Gesamtpunktzahl', 0);
  finally
    IniFile.Free;
  end;
  Showmessage(inttostr(Gesamtpunktzahl));
end;

Eventuell die INI Datei woanders speichern, falls du keine Schreibrechte für den Ordner hast hast.