我想把窗体上的所有EDIT清空怎么做？

Question

for i:=0 to form1.ControlCount do 
  begin
    if form1.Controls[0] is Tedit then
      ？？？？？？？//这句该怎么写？？       
  end；
我的EDIT非常多，不能一个一个写代码

Answer 1

for I := 0 to ComponentCount-1 do
    if Components[I].ClassType = TEDIT then
    with Components[i] as TEDIT do
    begin
      Text:=''; 
    end

Answer 2

var
  i:integer;
begin
  for i:=0 to ControlCount-1 do
    if (Controls[i] is TEdit) then
      TEdit(Controls[i]).Clear;
end;

Answer 3

for i:=0 to form1.ControlCount do 
  begin
    if Controls[i] is TEdit then
      TEdit(Controls[i]).Text := '';       
  end；搞定！

Answer 4

for i:=0 to componentcount-1 do
    if (components[i] is Tedit)then
        (components[i] as TEdit).Text:='';

Answer 5

呵呵~~~楼上的跟我写的一样。同意楼上的。
for i:=0 to form1.componentcount-1 do
    if (form1.components[i] is Tedit)then
        (form1.components[i] as TEdit).Text:='';

Answer 6

for i:=0 to componentcount-1 do
    if (components[i] is Tedit)then
        (components[i] as TEdit).Text:='';

Answer 7

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  for i:=0 to self.ComponentCount-1 do
  begin
    if (self.Components[i] is Tedit) then
    begin
      Tedit(Components[i]).Clear;;
    end;
  end;
end;