[gelöst] Checklistbox Multiselect Einträge delete

[dash_develop]

Hallo Leute,

kurze Frage. Ich habe eine CheckListBox auf meiner GUI mit Einträgen.
Jetzt habe ich einen Button der mir alle ausgewählten Einträge löschen soll.
Mein Problem ist, dass er nur einzelne Einträge löscht, aber nicht alle ausgewählten auf einmal.
Habe ich etwas in meinem Quellcode falsch gemacht oder ist das evtl. einfach gar nicht möglich?

Code: Alles auswählen

procedure TDatabase_Form.BitBtn_deleteClick(Sender: TObject);
var
  i: integer;
begin
CheckListBox1.MultiSelect:=True;
  if CheckListBox1.SelCount > 0 then begin
    For i := CheckListBox1.Items.Count - 1 downto 0 do
      if CheckListBox1.Selected [i] then
         CheckListBox1.Items.Delete (i);
  end else begin
      ShowMessage('Bitte erst den Eintrag auswählen!');
  end;
end; 

Bin über jegliche Denkanstöße dankbar.

Vielen Dank im Voraus.

Mit freundlichen Grüßen
dash_develop

[shokwave]

Hi,

also dein Code funktioniert bei mir. Alle markierten (farblich hinterlegten) Zeilen werden gelöscht.

Willst du hingegen alle Zeilen die angehakt sind löschen, musst du statt

Code: Alles auswählen

CheckListBox1.Selected [i]

mit

Code: Alles auswählen

CheckListBox1.Checked [i]

arbeiten.

P.S.: Die Zeile mit dem Multiselect ist an der Stelle überflüssig. Die gehört ins OnCreate oder du stellst es im ObjektInspektor ein.

[dash_develop]

Hallo shokwave,

vielen Dank für deine schnelle Antwort.
Danke für die super Erklärung. Habe total auf dem Schlauch gestanden.
Habe gedacht das..

Code: Alles auswählen

CheckListBox1.Checked [i]

nicht klappt, da ich ständig an

Code: Alles auswählen

ChecklistBox1.Items.Checked

gedacht habe. Dieses blöde Items war zu viel in meiner Denkweise.

Danke.

Mit freundlichen Grüßen
dash_develop