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