Acontrl.Controls[i] is TEdit then ((Acontrl.Controls[i]) as TEdit).Text := ''; if Acontrl.Controls[i] is TCustomControl then ClearEdit( (Acontrl.Controls[i] as TCustomControl)) end; end; 第二部分:RTTI 上文中已经多次提到了RTTI,但好像并没有看到
其派生关系如下: TControl---TGraphicControl---TCustomLabel TWinControl--TCustomControl---TCustomGrid ---TButtonControl