菜鸟的菜鸟问题

Question

如何通过FOR语句为
edit1,edit2.................edit80
一次性赋值如x？

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to form1.ComponentCount-1 do
    begin
      if form1.Components[i].ClassType=Tedit then
        begin
          Tedit(form1.Components[i]).text:='';
        end;
   end;
end;

Answer 2

hehe, 出手不够大方啊.procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to Form1.ComponentCount-1 do
  begin
    if Form1.Components[i].ClassType = TEdit then
      TEdit(Form1.Components[i]).Text := 'x';
  end;
end;