Удаление элементов из коллекции

[GB826]

Код: Выделить всё

Dim i As Long
 
  For i = 1 To tT.Count
    If tT(i).isDestroy Then tT.Remove i
  Next i

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

А как правильно "массово" удалить элементы из коллекции с каким-либо признаком?

[Konst_One]

step -1 в цикл и считать с конца или Do ... Loop

[Ruslan Demidow]

Это если нужно все

Код: Выделить всё


tT.Clear

  или

  Do While tT.Count>0
     tT(tT.Count).Remove
  Loop
 
или
 
  set tT=Nothing


А если по условию, то

Код: Выделить всё


For Each colItem In tT
     If colItem.isDestroy Then
        tT.Remove(colitem.key)
     End If
  Next


[GB826]

Нет, удалить всю коллекцию, я и сам смогу, мне нужно удалять конкретные элементы...

Код: Выделить всё

Dim i As Long
 
  For i = 1 To tT.Count
    If tT(i).isDestroy Then tT.Remove i
  Next i

В данном случае удаляются все у которых isDestroy = True

[GB826]

Код: Выделить всё

Dim i As Long
  Dim CC As Long
  CC = tT.Count
  i = 0
  Do While i < CC
   i = i + 1
   If tT(i).isDestroy Then
     tT.Remove (i)
     CC = CC - 1
    End If
  Loop

Вот чего получилось, если можно лучше и быстрее, напишите, пожалуйста

[alibek]

Вот чего получилось, если можно лучше и быстрее, напишите, пожалуйста

Перечитай первый ответ.