5,943
社区成员
发帖
与我相关
我的任务
分享动态按钮的删除问题！
我在一个函数中动态创建了一个按钮数组，最大值是10，可是这个函数要经常调用！每次创建的数目也不一样多！而在创建后，再调用就不行是因为这个控件名称已存在！要如何在再次调用函数时把原先创建的不知个数的按钮删掉！我建的是b1,b2等！
...全文
请发表友善的回复…
发表回复
kuangke 2002-09-28
- 打赏
- 举报
while (Form1.componentcount<>0) and (判断是按钮类型) do
Form1.components[0].free;
Form1.components[0].free;
blazingfire 2002-09-28
- 打赏
- 举报
for i:=1 to 10 do
if TButton(s[i])<>nil then
begin
TButton(s[i]).Free;
TButton(s[i]):=nil;
end;
if TButton(s[i])<>nil then
begin
TButton(s[i]).Free;
TButton(s[i]):=nil;
end;
Almzg_0 2002-09-28
- 打赏
- 举报
那你就用findcomponent（“b1”）等去找，找到了就释放了
上海老李 2002-09-28
- 打赏
- 举报
上边还是不行！
1nbud 2002-09-27
- 打赏
- 举报
for i:=1 to 10 do
if Assigned(s[i])then FreeAndNil(s[i]);
if Assigned(s[i])then FreeAndNil(s[i]);
上海老李 2002-09-27
- 打赏
- 举报
如果是已建的按钮，上边办法可以！但没建的数组按钮却不行！请帮帮忙！
上海老李 2002-09-27
- 打赏
- 举报
没人知道了吗？
上海老李 2002-09-27
- 打赏
- 举报
for i:=1 to 10 do begin
if Assigned(s[i]) then begin
s[i].Free;
s[i]:=nil;
end;
end;
if Assigned(s[i]) then begin
s[i].Free;
s[i]:=nil;
end;
end;
sjhua 2002-09-27
- 打赏
- 举报
用动态数组试试
上海老李 2002-09-27
- 打赏
- 举报
因为它不一定是存在的，楼上那位，是存在的可以！
wanderung 2002-09-27
- 打赏
- 举报
先free
然后赋值为nil
然后赋值为nil
上海老李 2002-09-27
- 打赏
- 举报
救命，就这几句话？怎么办？
santwy 2002-09-27
- 打赏
- 举报
for i:=ComponentCount downto 1 do
begin
if Components[i].ClassNameIs('TButton') then
TButton(Components[i]).Free;
end;
begin
if Components[i].ClassNameIs('TButton') then
TButton(Components[i]).Free;
end;
上海老李 2002-09-27
- 打赏
- 举报
for i:=1 to 10 do begin
if Assigned(s[i]) then begin
s[i].Free;
s[i]:=nil;
end;
end;
这个为什么不行？
if Assigned(s[i]) then begin
s[i].Free;
s[i]:=nil;
end;
end;
这个为什么不行？
yang6130 2002-09-27
- 打赏
- 举报
调用free不就行了
可以用Assigned测试是否为nil
可以用Assigned测试是否为nil
上海老李 2002-09-27
- 打赏
- 举报
没人会吗？
