Spielstand speichern mit ini(s)!

[Torley]

ja das ist verständlich aber leider zu spät tut mir leid!

ich habs jetzt selbst nochmal versuch und das ist bei rausgekommen:
ich denk mal das ist die version von euch mit einigen macken und mäckeln und einer sichtbaren memo statt stringlist:

Delphi-Quellcode:

procedure TForm3.Button5Click(Sender: TObject);
var i:integer;
begin
 ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+'..\DATA\save.ini');
 try
  for i:=1 to ini.readinteger('Key','games',1) do
   begin
    memo1.Lines[i-1]:= ini.ReadString('Key','game'+inttostr(i),'');   //hier les ich alle namen in ein memo
   end;
  memo1.Lines.Delete(listbox1.ItemIndex);   //hier lösch ich die erste zeile weil sie leer ist (geht bestimmt schöner
  ini.EraseSection(listbox1.Items[listbox1.itemindex]);   //dann die sektion löschen
  ini.DeleteKey('Key','game'+inttostr(ini.readinteger('Key','games',0)));   //und den key
  ini.writeinteger('Key','games',ini.readinteger('Key','games',0)-1);    //dann die anzahl der spieler
  for i:=1 to ini.readinteger('Key','games',1)do
   begin
    ini.writestring('Key','game'+inttostr(i),memo1.Lines[i-1]);     //und hier füg ich wieder den memo inhalt ein
   end;
  showmessage('Spielstand "'+listbox1.Items[listbox1.itemindex]+'" erfolgreich gelöscht!');
 finally
  ini.free;
  form3.Button3Click(Sender);   //das führt dazu das die liste neu geladen wird ***
 end;    
end;

***ich musste als parameter irgendwas einfügen? was gehört den da eig rein?

auf jedenfall klappts so

habs auch getestet bis die ini leer wahr^^ (also keine spielstände mehr enthielt

ich denk mal damit hat es sich erledigt! danke für eure hilfe!

Torley