Listbox DeleteSelected und Ini Erasesections [gelöst]

[Niko]

Hi,
diese Abfrage
if Favoriten_ListBox.Selected[Favoriten_ListBox.ItemIndex] then kannst du dir schon mal sparen. Ein Eintrag der den Fokus hat ist auch automatisch ausgewählt. Prüfen sollte man besser ob Favoriten_ListBox.SelCount <> -1 ist, d.h. ob überhaupt was ausgewählt wurde.
Und ja, es fehlt eine Schleife :
Statt
Ini_favoriten.EraseSection(Favoriten_ListBox.Items[Favoriten_ListBox.ItemIndex]); müsstest du folgendes schreiben:

Delphi-Quellcode:

for i := 0 to Favoriten_ListBox.Count - 1 do
  if Favoriten_ListBox.Selected[i] then
    Ini_favoriten.EraseSection(Favoriten_ListBox.Items[i]);

Mit deiner Version wird nur der Eintrag aus der INI gelöscht der gerade den Fokus hat; die Schleife sorgt dafür, dass alle markierten Einträge gelöscht werden.