Döngüyle destroy olayında bir sorun ?

[salvation]

Merhaba;

bir formda ki tag'i 99 olan edit leri yok etmek istiyorum ama bir sorunla karşı karşıyayım. Kodlarım şu şekilde:

Kod: Tümünü seç

  for i := 0 to self.ControlCount - 1 do
    if (self.Controls[i] is TEdit) and (self.Controls[i].Tag = 99)then
      self.Controls[i].Destroy;

Fakat bir kaç tanesi yokettikten sonra "List Index Out Of Bounds(4)" gibi hatalar alıyorum. Sanırım nesneleri sildiğim için sıralamada değişiklikler oluyor.

[t-hex]

Merhaba,

for döngüsü yerine while döngüsü kullan ama bir bileşeni sildiğin zaman döngü değerini arttırma, sadece silmediğin zaman arttır. o zaman sınırlar dışına çıkmazsın.

Kolay gelsin

[gorecelik]

for i := 0 to self.ControlCount - 1 do
if (self.Controls is TEdit) and (self.Controls.Tag = 99)then
self.Controls.Destroy;

merhaba kardeş işlemin doğru ama dikkat etmen gereken nokta componentcount toplam componentin sayısını alır ama buralar doğru fakat dikkat et componentin birini sildiğin zaman componentcount 1 eksilir for döngün ise hala eski değere göre dönüyor doğal olarak kalan değerleri bulamıyor for döngünü tersten yaparsan sorun çözülür

Kod: Tümünü seç

for i := self.ControlCount - 1 downto 0 do 
    if (self.Controls[i] is TEdit) and (self.Controls[i].Tag = 99)then 
      self.Controls[i].Destroy;

gibi

[fduman]

Destroy kullanmayıın. Free kullanııın.

[salvation]

evet anlattığınız şekilde hallettim, çok teşekkürler.