多个编号连着的edit如何同时清空里面的内容

Question

我知道可以这样写：edit1.clear;
edit2.clesr;
...........editn.clear;但这样写对于很多edit来说，是不是比较麻烦哪？有没有什么循环语句或者其它方法可以将所有的edit中的内容一次全部同时清空哪？谢谢了。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var I: integer;
begin
  for I := 0 to 100 do
  begin
    if FindComponent(Format('Edit%d',[i])) <> nil then
       TEdit(FindComponent(Format('Edit%d',[i]))).Clear;
  end;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i:=1 to 4 do
    TEdit(FindComponent('Edit'+IntToStr(i))).Clear;
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i:=1 to 4 do
    if FindComponent('Edit'+IntToStr(i)) <> nil then
      TEdit(FindComponent('Edit'+IntToStr(i))).Clear;
end;