var i: Integer;begin for i 1 to N do //N为Edit的个数 begin if Assigned(FindComponent('Edit'+IntToStr(i))) then TEdit(FindComponent('Edit'+IntToStr(i))).Color clRed; end;end; 查看原帖>>
