如何动态的删除控件

Question

我动态的创建了控件--比如我创建了三个EDIT，分别是EDIT1，EDIT2，EDIT3，
请问我如何动态的删除--比如一个BUTTON一按就删除了（不是看不见，一定是删除）谢谢

Answer 1

edit1.Free;
edit2.Free;
edit3.Free;

Answer 2

不好意思我没说清楚，我的意思是动态的增加了控键，但数量是运行的时候才确定的--开始并不知道
我能知道TEDIT的名字是 EDIT1，EDIT2，EIDT3、、、、这样增加的
请问这样的程序段该怎么写

Answer 3

var
  aa: tedit;
begin
  aa := tedit.create(self);
  aa.parent := self;
  aa.text := 'aaaa';
end;
或
 with tedit.create(self) do
 begin
   parent := self;
   text := 'aaaa';
 end;

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  FreeButton: TButton;
begin
  for i := 0 to Application.ComponentCount - 1 do
  begin
    FreeButton := TButton(FindComponent('button2'));
    if FreeButton <> nil then
      FreeButton.Free;
  end;
end;

Answer 5

你把它当成控件当然不知道如何删除。如果你把它当作类你就知道如何删除了。大家给出了好的方法。只不过你的思路有问题。请认真学习VCL会理解的。