是不是只删除动态创建的? 可以定义一个Mylist:Tlist并在form创建时mylist:=Tlist.create; 创建一个button则加一个到Mylist中 mylist.Add(btn); 然后访问时如下例: var j:integer; btn:tbutton; begin for j:=0 to mylist.Count-1 do begin btn:=mylist.Items[j]; btn.free; end; mylist.Clear; end;
for i:=self.componentcount-1 down to 0 do begin if copy(self.components[i].name,1,6)='Button' then self.components[i].free; end;
To 高手taxi(游少爷):全局变量怎么做啊?
可以定义一个Mylist:Tlist并在form创建时mylist:=Tlist.create;
创建一个button则加一个到Mylist中 mylist.Add(btn);
然后访问时如下例:
var
j:integer;
btn:tbutton;
begin
for j:=0 to mylist.Count-1 do
begin
btn:=mylist.Items[j];
btn.free;
end;
mylist.Clear;
end;
begin
if copy(self.components[i].name,1,6)='Button' then
self.components[i].free;
end;