Работа c SubItems

[bulldog5293]

Извиняюсь за столь нубский вопрос, но сам понять не могу, пользуюсь процедурой удаления пустых записей в ListView, но она почему то храмает, при удалении записи, удаляет дополнительно следуюющею которая не пустая и останавлевается не удаляя остальных. Где я подводных камней не учёл?

procedure Tform1.proba;
 var
  i,l1,l2:Integer;
begin
  for i:=0 to Listview1.Items.Count -1 do
  begin
    l1:=Length(ListView1.Items[i].SubItems.Strings[i]);  //Check item caption length
  If (l1 = 0) then
  begin
  ListView1.Items[cw].SubItems.Delete(i);
  l2:=i-1;
  ListView1.Items[cw].SubItems.Delete(l2);
  end
  else
  Break;
  end;
end;

[Serge_Bliznykov]

сейчас не досуг проверить Ваш код,
а что удаляет ...SubItems.Delete я на память не помню.
НО!
Рискну предположить, что тут та же самая беда, которая подстерегает всех, кто делает прямой цикл FOR по структуре, откуда в цикле удаляются записи...

Попробуйте написать не for i:=0 to Listview1.Items.Count -1 do
а

for i:= Listview1.Items.Count -1 downto 0 do
....

p.s. т.е. внутри стоит прерывание цикла по break - то, возможно, что мой совет и "мимо кассы"... в этом случае прошу, не взыщите строго...

[bulldog5293]

Спс, за оказанную помощь Serge_Bliznykov, но не помогло

[veniside]

> Где я подводных камней не учёл?

for i:=0 to Listview1.Items.Count
...
SubItems.Strings[i]

вы высоту с шириной не попутали?

Listview1.Items.Count - число записей в списке (высота)
SubItems.Strings[] - поля записи (ширина)

как их вобще можно индескировать одним индексом?

[OlegVE]

Здравствуйте
Можно сказать продолжение предыдущего сообщения
1. Break - прервёт цикл

...
for i:=0 to Listview1.Items.Count -1 do
...

2. А если у Вас пробел(ы)

...
If (l1 = 0) then
...

До свидания

Добавка
3.

//Check item caption length

Это совсем разные вещи caption и SubItems.
4. Если Вы не поняли сообщение veniside, дополнительно поясняю - Вы идёте по диагонали.

[bulldog5293]

вы высоту с шириной не попутали?

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

var
i,j2, z2:integer;
begin
  for i:=0 to BBUX.Listview1.Items[cw].SubItems.Count -1 do
j2:=3;//к примеру
  if (Length(BBUX.Listview1.items[cw].SubItems.strings[j2]) = 0)
                then
                with BBUX.Listview1.items[cw] do
begin
                  if j2 > -1 then
                    SubItems.Delete(j2);
                  z2 := j2 - 1;
                  Count := Count - 1;
                  if z2 > -1 then
                    SubItems.Delete(z2);
                  j2 := j2 + 3;
               end;
end;

[OlegVE]

Попробуйте хоть раз в жизни нажать F7
Прощайте
P.S. Не забудьте про Add Watch

[bulldog5293]

 Попробуйте хоть раз в жизни нажать F7

Характеристики железа не позволяют

[eduard93]

Это как? Кнопок на клаве не хватает? Так клавиши переназначить можно.

[bulldog5293]

Полностью вырубается Delphi XE от того что Pentium 3

сейчас не досуг проверить Ваш код,
а что удаляет ...SubItems.Delete я на память не помню.
НО!
Рискну предположить, что тут та же самая беда, которая подстерегает всех, кто делает прямой цикл FOR по структуре, откуда в цикле удаляются записи...

Попробуйте написать не for i:=0 to Listview1.Items.Count -1 do
а
Код:

for i:= Listview1.Items.Count -1 downto 0 do
....

p.s. т.е. внутри стоит прерывание цикла по break - то, возможно, что мой совет и "мимо кассы"... в этом случае прошу, не взыщите строго...

Всё таки не мимо кассы, спс помогло