一个小问题！

Question

form1 上有8个edit控件，能不能用一个循环语句来改  text：＝‘0’；？应该怎么写？

Answer 1

for i:= 0 to 7 do
   (FindComponent('edit'+IntToStr(i)) as TEdit).Text:= '0';

Answer 2

for i:=0 to form1.componentscounts-1 do 
begin
  if components[i] is TEdit then
    TEdit(components[i]).text:='0';
end;

Answer 3

记得应该是这样....try
for i:=0 to form1.comopnentcount-1 do
Begin
   if form1.Components[i].ClassName='Tedit' then
      Tedit(form1.Components[i]).text:='0';
End;

Answer 4

for I := 0 to ControlCount-1 do
  if Controls[I].InheritsFrom(TEdit) then
    TEdit(Controls[I]).Text := '0'

Answer 5

来晚了
for i:=0 to form1.componentscounts-1 do 
begin
  if components[i] is TEdit then
    TEdit(components[i]).text:='0';
end;