Spielstand speichern mit ini(s)!

[Torley]

ok den code versteh ich net so ganz! aber egal. ich versuchs erstmal auf die andere art.

nur hab ich jetzt ein problem mit dem löschen! alles andere funktioniert bestens!

also die ini sieht jetzt ungefähr so aus:

[Key]
games=4
game1=Peter
game2=Torley
game3=Nils
game4=Lukas

und hier dann die sektionen mit den daten zb.
[Torley]
Money=0
...


so und so lösch ich bis jetzt was aber nicht funktionier:

Delphi-Quellcode:

if MessageDlg('Wollen Sie den Spielstand '+panel1.Caption+' wirklich löschen?',mtWarning,
              [mbYes, mbNo],0)=mryes
 then
 begin
  ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+'..\DATA\save.ini');
  ini.DeleteKey('Key', 'game'+inttostr(ListBox1.ItemIndex+1));

  if ListBox1.ItemIndex+1 < ini.ReadInteger('Key','games',1)
   then
    begin
     for i:=ListBox1.ItemIndex+1 to ini.Readinteger('Key','games',1) do
      begin
       ini.writeinteger('Key','game'+inttostr(i),ini.ReadInteger('Key','game'+inttostr(i-1),1));
      end;
    end;


  ini.EraseSection(ini.ReadString('Key','game'+inttostr(ListBox1.ItemIndex+1),''));
  ini.writeinteger('Key','games',ini.ReadInteger('key','games',1)-1);
  ini.free;
  showmessage('Spielstand erfolgreich gelöscht!');

sieht jemand den fehler?

torley