怎么才能通过一个按扭就清楚好几个edit.text

Question

如题目

Answer 1

procedure TForm1.BitBtn1Click(Sender: TObject);
var
i:integer;
begin
 for i:=0 to Form1.ControlCount-1 do
 begin
    if  (Form1.Controls[i] is Tedit) then
    begin
      (Form1.Controls[i] as Tedit).text:='';
    end;
 end;
end;
看看这段代码！

Answer 2

如果是部分就判断名字嘛：
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i:integer;
begin
 for i:=0 to Form1.ControlCount-1 do
 begin
    if  (Form1.Controls[i] is Tedit) then
    begin
      if (Form1.Controls[i] as Tedit).Name='eText1' then
//     ...
        (Form1.Controls[i] as Tedit).text:='';
    end;
 end;
end;

Answer 3

如果是部分就判断是否是EDIT了嘛：
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
 for i:=0 to Form1.ComponentCount-1 do
 begin
    if  Tedit(Form1.Component[i]) then
      Component[i].Text.Clear;
 end;
end;