TIniFile und DeleteKey

[newuser01]

Hallo

Problem gelöst

Lösung:

"Ini.DeleteKey('Properties',ListBox1.Items.Str ings[i])" muss vor "ListBox1.Items.Delete(i)" gesetzt werden denn wenn es danach gesetzt wird ist ja ListBox1.Items nicht mehr aktuell weil beretis ein Eintrag gelöscht wurde

Delphi-Quellcode:

procedure TfMain.btnDeleteClick(Sender: TObject);
var
i:integer;
Ini:TIniFile;
begin

//Ausgewählter Eintrag ist zu löschender Key in 'Properties'
for i := 0 to ListBox1.Count -1 do
begin

  if ListBox1.Selected[i] = true then
  begin
  Ini := TIniFile.Create(ExtractFilePath(Application.ExeName)+'setting.ini');
  Ini.DeleteKey('Properties',ListBox1.Items.Strings[i]);//vor ListBox1.Items.Delete(i) gesetzt
  ListBox1.Items.Delete(i);
  end
    else
        begin
  end;//if

end;//for

Ini.Free;

DANKE an alle