对象获取问题?.......

Question

我现在有100个Edit控件从Edit1--Edit100
我怎么样用一条循环语句可以将这些控件的text属性置为空.

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  for i := 0 to Form1.ComponentCount -1 do begin
    if Form1.Components[i].Tag = 2 then//如果是Edit控件
      TEdit(Form1.Components[i]).Clear;
  end;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  for i := 0 to Form1.ComponentCount -1 do begin
    if Form1.Components[i]is Tedit then//如果是Edit控件
      TEdit(Form1.Components[i]).Clear;
  end;
end;

Answer 3

procedure TForm1.Button2Click(Sender: TObject);
var
    i: integer;
    edt: TEdit;
begin
    for i:=1 to 100 do
    begin
        edt := FindComponent('Edit' + IntToStr(i)) as TEdit;
        if Assigned(edt) then
            edt.Text := '';
    end;
end;

Answer 4

野马兄的第2个和ccrun兄的都是正解，顶了。

Answer 5

第一个 可以设置只清除部分的edit为空 部份 不清除