Merhaba;
Boş Proje açarakta denedin fakat yine sorun aynı.
Şöyleki;
Aşağıdaki kodlarda Nesneyi gizlemek istediğimde sorun yok. Tümü Gizleniyor fakat Free dediğim zaman 20 adet nesne var ise +1 atlayarak gidiyor (chkbox1,chkbox3,chkbox5 gibi) ve 10 tane nesneyi free ettikten sonra hata veriyor Hata "Argument out of range" oluşturulmamış nesne.Sebebini çözemedim nerede hata yapıyorum
var
i:Integer;
begin
Memo1.Clear;
for i := 0 to ComponentCount-1 do
Begin
if (Components[i] is TCheckBox) and (TCheckBox(Components[i]).Parent=FLowPanel1) Then
Begin
Memo1.Lines.Add(IntToStr(i)+':'+ TCheckBox(Components[i]).Name) ;
// TCheckBox( Components[i]).Visible:=False;
TCheckBox( Components[i]).Free;
End;
End;
end;
En son xozcanx tarafından 21 Ağu 2015 08:49 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
Nasibinde varsa, alırsın karıncadan bile ders, Nasibinde yoksa, bütün cihan önüne serilse, sana ters..
procedure Tdm1.YokEt;
var
z:integer;
begin
//uses Controls
for z:=0 to Memo1.ControlCount-1 do
TControl(Memo1.Controls[z]).Visible:=false;
TControl(Memo1.Controls[z]).Free;
end;
böyle bir procedure oluşturup kullanırsan olur diye düşünüyorum bi deneyip bilgi verebilirmisin