不知Delphi有没有这个功能？简单的编辑框设置功能。

Question

我现在要设置两个编辑框的内容为空：
即是Edit1.Text := ''; Edit2.Text := '';
现在我想通过循环来控制，不如有什么办法？有点像FoxPro中的宏替换，请大家帮忙一下。谢谢！
 for i:=1 to 2 do
    Edit&InttoStr(i).text := '';
上面是类程序语言，但是通不过。

Answer 1

可以通过窗口中的控件数来循环,不过要先判断它是不是Edit控件

Answer 2

这种方法可以，但是我还有Edit3，而我又不想设Edit3该怎么办。这只是举例，有可能有很多个控件，不想设的又有很多个控件。

Answer 3

var I:integer;
begin
 for I:= 1 to 2 do
  TEdit(FindComponent('Edit' + intToStr(i))).Text := '';
end;

Answer 4

for i := 1 to 2 do
begin
  TEdit(FindComponent('Edit'+IntToStr(i))).Text := 'Test';
end;
不过最好先做判断，判断也有函数的，不过我忘了，好久不用delphi了