Buscar por:

limpar todos os campos do form de uma so vez

Código

procedure TFrm_Form1.LimparCamposGenerico;

var x: Integer;

begin

for x := 0 to (ComponentCount) - 1 do

  begin

     //ShowMessage (IntToStr(Components[x].tag));

     //Verificação da propriedade pTag

     if (TComponent(Components[x]).Tag<>100) then

       begin

         if (Components[x] is TCustomEdit) then

           (Components[x] as TCustomEdit).Clear;

         if (Components[x] is TComboBox) then

           Begin

             (Components[x] as TComboBox).ItemIndex:=-1;

             (Components[x] as TComboBox).Text:=EmptyStr;

           End;

         if (Components[x] is TCheckBox) then

           (Components[x] as TCheckBox).Checked := False;

       end;

  end;

end;