动态按钮的删除问题！

[上海老李]

我在一个函数中动态创建了一个按钮数组，最大值是10，可是这个函数要经常调用！每次创建的数目也不一样多！而在创建后，再调用就不行是因为这个控件名称已存在！要如何在再次调用函数时把原先创建的不知个数的按钮删掉！我建的是b1,b2等！

[上海老李]

没人会吗？

[yang6130]

调用free不就行了
可以用Assigned测试是否为nil

[上海老李]

for i:=1 to 10 do begin
if Assigned(s[i]) then begin
s[i].Free;
s[i]:=nil;
end;
end;
这个为什么不行？

[santwy]

for i:=ComponentCount downto 1 do
begin
if Components[i].ClassNameIs('TButton') then
TButton(Components[i]).Free;
end;

[上海老李]

救命，就这几句话？怎么办？

[wanderung]

先free
然后赋值为nil

[上海老李]

因为它不一定是存在的，楼上那位，是存在的可以！

[sjhua]

用动态数组试试

[上海老李]

for i:=1 to 10 do begin
if Assigned(s[i]) then begin
s[i].Free;
s[i]:=nil;
end;
end;

[上海老李]

没人知道了吗？

[上海老李]

如果是已建的按钮，上边办法可以！但没建的数组按钮却不行！请帮帮忙！

[1nbud]

for i:=1 to 10 do
if Assigned(s[i])then FreeAndNil(s[i]);

[上海老李]

上边还是不行！

[Almzg_0]

那你就用findcomponent（“b1”）等去找，找到了就释放了

[blazingfire]

for i:=1 to 10 do
if TButton(s[i])<>nil then
begin
TButton(s[i]).Free;
TButton(s[i]):=nil;
end;

[kuangke]

while (Form1.componentcount<>0) and (判断是按钮类型) do
Form1.components[0].free;