有关指针的问题

Question

编程的过程遇到过几次下面的问题，可都没解决，请哪个大虾指点一下：
Edit1.Text := '';
Edit2.Text := '';
Edit3.Text := '';
.
.
.
Edit100.Text := '';
能不能用个循环解决？

Answer 1

for i:=0 to pred(self.ComponentCount) do
    if (components[i] is TEdit) then
       (components[i] as TEdit).Text:='';

Answer 2

比较快捷的方法是，动态生成edit，存入控件数组，一劳永逸～

Answer 3

我保证我的最好用
var i:integer;
begin
for i :=10 to self.controlcount-1 do
 if  controls[i] is TEdit then
     TEDIT( controls[i]).text:= '';
end;
给分吧，呵呵~

Answer 4

我看不懂呀？
我把上面的代码给BitBtn的Click，可什么也不做呀？

Answer 5

for i:=1 to 100 do
 TEdit(Form1.FindComponent('Edit'+IntToStr(i))).Text:='';

Answer 6

oracle_lover(数据库情人)——谢了！