panellerin yok edilmesi

[korendon1971]

Merhabalar
Ben formadaki tüm panelleri yok etmek istedim ama başaramadım.
böyle bir kod yazdım.


for n:=1 to componentcount-1 do
begin
if components[n] is tpanel then
begin
tpanel(components[n]).destroy;
end;
end;

panellerin 3, 5 tanesini yok etti ama daha sonra hata mesajı verdi.
Bu neden kaynaklanıyor olabilir.Teşekkürler......

[bilbeyi]

Hatayı yazsan daha sağlıklı ilerlerdik ama şunlara birbak istersen
Acaba üstüste panel kullanmış olabilirmisin ?
ana panel gidince hali ile üzerinde ki panellerde gidecek.
bu dikkat etmeni öneririm.

[muskut]

evet, for döngüsünde yok olan paletlerin sırasını bi kontrol et

[husonet]

Destroy yerine Free kullan.

Kolay Gelsin...

[t-hex]

Merhaba,

viewtopic.php?t=8332&highlight=

benzer bir soru daha önce sorulmuş

[husonet]

Birde Componentler silindiği Component indexi değişecektir bu sebepten ListBound hatası verecektir bunu iki şekilde aşabiliriz Ya döngüyü(Tersten) Count tan sıfıra kadar döndürerek yada While döngüsü kullanarak.

Kod: Tümünü seç

    for n := Pred(ComponentCount) downto 0 do
    begin
        if (components[n] is tpanel) then
        begin
            ShowMessage(intToStr(n));
            TPanel(Components[n]).Free;
        end;
    end;

Kod: Tümünü seç

var
  I: Integer;
begin
  I := 0;
  while (I < ComponentCount) do
    if (Components[I] is TPanel) then
      Components[I].Free
    else
      Inc(I);
end;

Kolay Gelsin...

[andronoid]

daha önceden ben de böyle bişey denemiştim. kodu denemedim ama şu şekilde sanırım olmalı.

Kod: Tümünü seç

for n:=1 to componentcount-1 do 
begin 
  if components[n] is tpanel then 
  begin 
    (components[n] as tpanel).free; //  
  end; 
end; 

[korendon1971]

Herkese yardımlarınızdan dolayı teşekkür ederim.Hüseyin hocama ayrıca teşekkür ederim.Hakikaten silinen componentlerin index numarasının değişeceğini unutmuşum.Herkese Sevgi ve Saygılar.......