Checklistbox: Unselektierte Items löschen

[extrem]

Zitat von Larsi:

Delphi-Quellcode:

for i := CheckListBox1.Items.Count - 1 downto 0 do
  if not CheckListBox1.Item.Selected(i) then
    Items.Delete(i);

So kommen immernoch Fehler:
[DCC Fehler] Unit8.pas(42): E2003 Undefinierter Bezeichner: 'Selected'
[DCC Fehler] Unit8.pas(43): E2003 Undefinierter Bezeichner: 'Items'
[DCC Fehler] Unit8.pas(43): E2008 Inkompatible Typen
[DCC Fehler] Unit8.pas(46): E2014 Anweisung erforderlich, aber Ausdruck vom Typ 'TCheckListBox' gefunden

Hi,

so geht es aber bei mir:

Delphi-Quellcode:

  for i := CheckListBox1.Items.Count - 1 downto 0 do
    if not CheckListBox1.Selected[i] then
      CheckListBox1.Items.Delete(i);