Delphi中TEdit

Question

for I := 0 to 71  do  
begin
        if Components[I] is TEdit Then  //判断该Component是否为Edit
         begin              (Components[I] as TEdit).Text := IntToStr(I) ;
    
         end;//if Components[I] is TCheckBox
end;//for I

Answer 1

var
  i:integer;
begin
  for i:=0 to self.ComponentCount -1 do
    if self.Components[i] is TEdit then
      TEdit(self.Components[i]).text:='OK';
兄弟，拜托，多给点分吧，才20分很打消大家的积极性的，虽然这分没有什么用！

Answer 2

利用ComponentCount与Components数组
if Components[i] is TEdit then
...

Answer 3

for i:=1 to 10 do 
 begin
   TEdit(Findcomponent('edit'+inttostr(i)).caption:='名字';//edit1,edit2..为控件的name;
 end;