DELPHI的EDIT控件不能使用循环吗？

Question

editi是什么东西????呵呵,你这样做肯定是不行的.
应该这样:
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
       (form1.Components[i] as Tedit).Text:='';
  end;
end;

Answer 1

editi是什么东西????呵呵,你这样做肯定是不行的.
应该这样:
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
       (form1.Components[i] as Tedit).Text:='';
  end;
end;
20分太少了呀.

Answer 2

i:integer;
i:=1;
while i<20 do
begin
editi.text:='';
inc(i);
end;哇！天呐哪有这种使用方法，用xzisgood(夏)兄的方法吧！

Answer 3

这里提问题都是这么小器，看看大富翁论坛(www.delphibbs.com)上的，出手就是一百两二的！别去看我提的问题！！我是想给高分的，但是论坛的破程序说给的分超过了，鬼话！我有2K多分用不出去，想加分也加不上，告诉坛主坛主也没理我。

Answer 4

to:kkty
    这段程序收到了么?我现在很需要你的分.快点给我加上吧,多多益善!呵呵