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