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