TCheckListBox

[Xardas]

Пытаюсь удалить все выделенные элементы из TCheckListBox

with checklistbox1 do
for i:=0 to count-1 do
if state[i]=cbChecked then Items.Delete(i);

Ошибка ...'List index out of bounds(2)'...

Посмотрите, пожалуйста, че не так.

[SunKnight]

ГЫ, индексация у этого компонента идет с 1, т.е.

with checklistbox1 do   
for i:=1 to count do   
if state[i]=cbChecked then Items.Delete(i);

[Xardas]

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

ГЫ, индексация у этого компонента идет с 1, т.е.

with checklistbox1 do   
for i:=1 to count do   
if state[i]=cbChecked then Items.Delete(i);

Индексация начинается с нуля:
http://program.rin.ru/razdel/html/1146.html

[SunKnight]

Извените, что то не то в попыхах наплел.

[Xardas]

И при сохранении в файл выдает эту же ошибку

procedure TFrameRuleEngineSaveRules;
var
  i: Integer;
begin
  i := 0;
  while i < checklistbox1.Items.Count do
  begin
    if CheckListBox1.Items[i] = '' then
    begin
     СheckListBox1.Items.Delete(i);
    end
    else
    begin
      CheckListBox1.Items[i] :=
      IntToStr(Integer(CheckListBox1.Checked[i])) +
      CheckListBox1.Items[i];
      Inc(i);
    end;
  end;
  CheckListBox1.Items.SaveToFile(ExtractFilePath(Application.ExeName) +
  'Rule.Txt');

[darkstarx]

Да бросьте вы, что за проблемы. Посмотрите повнимательнее до куда у вас цикл-то идет (List.Count-1):

Исходный список:
(0-checked) (1-nonchecked) (2-nonchecked) (3-checked) (4-nonchecked)

А теперь как работает ваш алгоритм:
Итерация 1: i=0 -> пропуск
Итерация 2: i=1 -> удаление, результат:
(0-checked) (1-nonchecked) (2-checked) (3-nonchecked)
Итерация 3: i=2 -> пропуск
Итерация 4: i=3 -> удаление, результат:
(0-checked) (1-nonchecked) (2-checked)
Итерация 5: i=4 -> Acseption Error: List index out of bounds(4)

потому что массив имеет длину уже не 5, а 3!!!

[Xardas]

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

Да бросьте вы, что за проблемы. Посмотрите повнимательнее до куда у вас цикл-то идет (List.Count-1):

Исходный список:
(0-checked) (1-nonchecked) (2-nonchecked) (3-checked) (4-nonchecked)

А теперь как работает ваш алгоритм:
Итерация 1: i=0 -> пропуск
Итерация 2: i=1 -> удаление, результат:
(0-checked) (1-nonchecked) (2-checked) (3-nonchecked)
Итерация 3: i=2 -> пропуск
Итерация 4: i=3 -> удаление, результат:
(0-checked) (1-nonchecked) (2-checked)
Итерация 5: i=4 -> Acseption Error: List index out of bounds(4)

потому что массив имеет длину уже не 5, а 3!!!

Допустим в списке 3 элемента. Ставлю цикл от 0 до 2, эта же ошибка.

И че то я не понял, что Вы хотели сказать. Я бросил TLabel на форму и выставил Label1.caption:=inttostr(CheckListB ox1.items.count) и при удалении в заголовок метки ставится то число, сколько элементов в списке.

[Xardas]

Записал вот так:

with checklistbox1 do
for i:=items.Count-1 downto 0 do
if state[i]=cbChecked then Items.Delete(i);

и все заработало, только я никак не могу понять почему когда было так:

with checklistbox1 do
for i:=0 to items.Count-1 do
if state[i]=cbChecked then Items.Delete(i);

не работало???????????

[mihali4]

Проблема решается очень просто.
Не нужно никаких псевдонаучных изысканий и флуда.
Что бы вы ни удаляли, удаляйте с помощью обратного цикла, то есть в вашем случае:

with checklistbox1 do   
for i:=count-1 downto 0 do   
if state[i]=cbChecked then Items.Delete(i);

В этом случае вы никогда не получите вашу ошибку...

[darkstarx]

Вы меня совсем не поняли!!!
Когда речь идет о списке, из которого нужно удалить записи, то цикл for to неприемлем, так как такая конструкция в паскале предполагает константы (for const1 to const2 begin end В Вашем случае предпочтительнее использовать конструкцию while i < Count do begin ... end; или, как посоветовали, обратный цикл.

Странно, что Вас мой пример в сообщении не убедил...посмотрите повнимательнее.
Приведу пример еще раз, уже обоих случаев:
Пусть нужно удалить только те элементы массива, в которых стоит '+'
Случай 1 (for 0 to Count-1):

i 0 1 2 3 4
0 + - + + +
1 - + + +
2 - + +
3 - + (error)
4 -

Случай 2 (for Count-1 downto 0):

i 0 1 2 3 4
4 + - + + +
3 + - + +
2 + - +
1 + -
0 + -
ошибок нет и быть не может, так как нет обращений к элементам, отсутствующим в списке (при удалении сдвиг происходит влево, пожтому читать нужно справа налево, чтобы ваш счетчик сдвигался в ту же сторону)