TToolbutton.free

[Abrak]

sabahtan itibaren denemediğim şekil kalmadı genede çözemedim en son çare yardıma ihtiyacımın olduğunu anladım

Çalışma sırasında 1..n kadar toolbutton oluşturuyorum

Kod: Tümünü seç

var
tempbuton:TToolbutton;
begin
tempbuton := TToolButton.Create(toolbar); 
tempbuton.Parent :=  toolbar;
tempbuton.Caption:= edit1.Text;
tempbuton.Style := tbsCheck;
tempbuton.Grouped := true;
{Burda Bir sorunum Yok}

Daha sonra captionlarına göre silme ihtiyacı duyuyorum ve sorunum burda başlıyor

Kod: Tümünü seç

var
i:integer;
begin
for i:=0 to toolbar.ButtonCount-1 do
begin
if toolbar.Buttons[i].Caption = 'abcde' then toolbar.Buttons[i].Free;
end;

Ama malasef hata veriyor birçok şekilde denedim ama en mantıklısı bu geldiği için bu örnekte sordum ilgilenen arkadaşlara teşekkür ederim;

[andronoid]

Kod: Tümünü seç

ToolBar1.ComponentCount
ToolBar1.ControlCount

[Abrak]

andronoid eminim aceleniz vardı yoksa bu şekilde bir cevap uslubu kullanmazdınız.
Ayrıca benim control sisteminde bir sıkıntım yoktu genede sağol

[mrmarman]

Merhaba...

Listeden silme yapılacak durumlarda liste eleman sayısı olumsuz yönde değişecektir. Buna göre şunu hesaplayın.

10 elemanlı bir listemiz olsun. For döngüsü 0..10 dersek ne olur. Şartlar değişsin veya değişmesin 11 kere dönecektir.

Bu döngü esnasında 5 ve 6 numarlı elemanları sildiğimizi düşünelim. Ne olacak şimdi. Geriye kalacak olan 9 elemanlı bir listede, 11 elemanlıymış gibi döngü kurarak hata yapmış olduk.

Listeden eleman silineceği durumlarda; şarta/duruma göre döngü süresinin değişken olabildiği While veya Repeat kullanmalısınız...

Ek olarak mümkünse sondan başa doğur giderseniz, listedeki aradan silme yapıldığında ekstra kontrollerle uğraşmak zorunda kalmazsınız. Çünkü eleman sayısı kadar eleman sıra numarası da önemli olabilir.

Kod: Tümünü seç

var
  i:integer;
begin
  i := toolbar1.ButtonCount-1;
  Repeat
    if toolbar1.Buttons[i].Caption = Edit1.Text then toolbar1.Buttons[i].Free;
    Dec(i);
  Until i < 0;

Çalışmalarınızda başarılar...

[Abrak]

mrmcop Teşekkür ederim ipuçları için.