谢谢GreensPan,cobi解决了我一部分问题,你解决了我全部问题,谢谢二位!比如:给edit1,edit2,edit3,edit4,edit5.....edit30赋值,或者给中间某几项赋值,如:edit4,edit5,edit6,edit7,edit8,edit9,edit10,edit11,edit12,edit13,edit14,edit15,edit16,edit17太好了,谢谢cobi(我是小新)!Type TForm1... public EditList:TStringList; end;....TForm1.Form1Create(Sender:TObject);var iCount:Integer;begin EditList := TObjectList.Create; for iCount := 0 to ComponentCount - 1 do begin if Components[iCount] is TEdit then begin EditList.Add(Components[iCount]); end; end;end;///////////////////////////可以用了,知道怎么用吗?/////////////////////////TForm1.Form1Destroy(Sender:TObject);begin //如果。。。 EditList.Free; end;好像不怎么全。。。