Delphi dicas

Limpar .text de todos os componentes tedit e tmaskedit de um form

Procedure para limpar o conteúdo da propriedade .Text de todos os componentes TEdit, TMaskEdit e TComboBox de um TForm.



procedure Limpa_Campo ( Form : TForm );

var i : Integer;

begin

        for i := 0 to Form.ComponentCount -1 do begin

                if Form.Components[i] is TEdit then

                TEdit(Form.Components[i]).Text:=''

                else if Form.Components[i] is TMaskEdit then

                TMaskEdit(Form.Components[i]).Text:=''

                else if Form.Components[i] is TComboBox then

                TComboBox(Form.Components[i]).Text:='';

        end;

end;