for I := 1 to Self.ComponentCount - 1 do
begin
if (Self.Components[i] is TMaskEdit) then
(Components[i] as TMaskEdit).Text := ''
else if (Components[i] is TCombox) then
(Components[i] as TCombox).Text := '';
end;
begin
if (Self.Components[i] is TMaskEdit) then
(Components[i] as TMaskEdit).Text := ''
else if (Components[i] is TCombox) then
(Components[i] as TCombox).Text := '';
end;
其它同上!