Удалить отмеченные чикетом

[Михаил Юрьевич]

А не могли бы Вы подсказать как удалить записи? То есть из текстового файла загружаю список. И нужно так же , какие отмечены чикетом, то те удалить записи.

if ListBox1.Count < 1 then Exit; 
  for var I: Integer := 0 to ListBox1.Count - 1 do
    if ListBox1.ListItems[I].IsChecked then 
      ListBox1.Items.Delete(I);

Не работает

[Arigato]

Как только вы удаляете элемент, то Count уменьшается и индексация смещается. В таких случаях запускают цикл в обратном порядке, то есть как-то так:

for var I: Integer := ListBox1.Count - 1 downto 0 do

[Михаил Юрьевич]

Сообщение от Arigato

for var I: Integer := ListBox1.Count - 1 downto 0 do

Ошибку выдает: [DCC Error] EXT.pas(136): E2029 'DO' expected but 'DOWNTO' found

[Arigato]

А вы на чем пишете, что оно downto не понимает?

[Михаил Юрьевич]

Сообщение от Arigato

А вы на чем пишете, что оно downto не понимает?

firemonkey

[Arigato]

Ну я озвучил идею, как технически реализовать, сами смотрите, может там скобки нужны или вынести объявление переменной I:

for var I: Integer := (ListBox1.Count - 1) downto 0 do

С Делфи давно не работаю и что там наруковертили с синтаксисом не в курсе. Но downto обязан быть, это еще база.

[Михаил Юрьевич]

Спасибо!