удаление дубликатов в ListView

[fate]

удаление дубликатов в ListView

Всем здрасти.
Помогите разобраться почему такое происходит
вот код удаления дублей строк в ListView

if ListView1.Items.Count>0 then
  for i:=ListView1.Items.Count-1 downto 1 do
    for j:=i-1 downto 0 do
      if ListView1.Items[i].SubItems.Strings[0]=ListView1.Items[j].SubItems.Strings[0] then
        ListView1.Items[j].Delete;

выдает ощибку, смотрю в отладчике изначально ListView1.Items.Count-1 = 15 соответственно i=15
удаляется строка ListView1.Items.Count-1 стал равен 14 однако i осталось равна 15 и соответственно ошибка т.к.
обратились к несюществующей строке.
сделал так

if ListView1.Items.Count>0 then
  for i:=ListView1.Items.Count-1 downto 1 do begin
str:=ListView1.Items[i].SubItems.Strings[0];
    for j:=i-1 downto 0 do
      if str=ListView1.Items[j].SubItems.Strings[0] then
        ListView1.Items[j].Delete;
end;

и опять ошибка, сново смотрю в отладчик, идет удаление дублей соответственно меняется ListView1.Items.Count
фактически ListView1.Items.Count=5 а i=14 вот почему так????!!!??

этот же алгоритм в memo работает на ура.

[fate]

кто нить...

[ReportCube]

i:=ListView1.Items.Count-1;
while i >= 0 do begin
  str:=ListView1.Items[i].SubItems.Strings[0];
  for j := i - 1 downto 0 do
    if str = ListView1.Items[j].SubItems.Strings[0] then begin
        ListView1.Items[j].Delete;
        Dec(i);
    end;
  Dec(i);
end;

____________
А ЧТО - КОД ОБРАМИТЬ ТЕГАМИ, КАК ТОГО ТРЕБУЮТ ПРАВИЛА - СЛИШКОМ СЛОЖНО?!!
ИЛИ ДОЛГО?!!
ИЛИ НЕ ЦАРСКОЕ ЭТО ДЕЛО - КОД ПО ПРАВИЛАМ ОФОРМЛЯТЬ?!
:-[

Модератор.

Извините...

[fate]

через while понятно что можно (наверное так и сделаю)
но все же очень интересно почему i в счетчике так себя странно ведет

[OlegVE]

Здравствуйте

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

1) через while понятно что можно (наверное так и сделаю)
2) но все же очень интересно почему i в счетчике так себя странно ведет

1) Так и делайте через while! 2) Вначале инициализируется цикл for. И чего же Вы хотите...
До свидания

[fate]

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

Вначале инициализируется цикл for.

и что ))
это не причина, ты внимательно прочитал мой топик?

[ReportCube]

Вначале инициализируется цикл for i :=. Во втором Вашем цикле значение i не изменяется и не должно изменяться. И чего же Вы хотите...

[fate]

ReportCube внимательно читаем

сделал так

if ListView1.Items.Count>0 then
  for i:=ListView1.Items.Count-1 downto 1 do begin
str:=ListView1.Items[i].SubItems.Strings[0];
    for j:=i-1 downto 0 do
      if str=ListView1.Items[j].SubItems.Strings[0] then
        ListView1.Items[j].Delete;
end;

за время выполнение цикла
for j:=i-1 downto 0 do
количество строк уменьшилось с 15 до 4. Цикл
for j:=i-1 downto 0 do закончил обработку и программа перешла к циклу
for i:=ListView1.Items.Count-1 downto 1 do begin
на данный момент ListView1.Items.Count-1 равен 4, по идее на следующем шаге в переменную str должна попасть строка с индексом 4, но этого не происходит т.к. i остается быть равной 15.
Так о какой нах инициализации вы говорите?

[ReportCube]

Ещё раз: инициализация счётчика в цикле For происходит при его старте!!! Далее счётчик, по умолчанию, изменяется на единицу. Ему абсолютно безразлично изменения ListView1.Items.Count, как бы Вы о нём не думали.