Olá Jefferson Olhe esta função que uso há alguns anos: procedure LimparCampos(Fm : TForm); var i : Integer; begin try for i := 0 to Fm.ComponentCount - 1 do Begin if Fm.Components[i] is TCustomEdit then (Fm.Components[i] as TCustomEdit).Clear; if Fm.Components[i] is TLabeledEdit then (Fm.Components[i] as TLabeledEdit).Clear; if Fm.Components[i] is TRzListView then (Fm.Components[i] as TRzListView).Clear; if Fm.Components[i] is TRzEdit then (Fm.Components[i] as TRzEdit).Clear; if Fm.Components[i] is TRzNumericEdit then (Fm.Components[i] as TRzNumericEdit).Clear; End; except
end; End; Você pode chamar da seguinte forma: LimparCampos(Self); Abraços Rod Em Thu, 17 Dec 2009 09:49:47 -0200, Jefferson Eduardo <je.del...@yahoo.com.br> escreveu: > > Pessoal, bom dia! > Tenho um programa no delphi e quando clico no botão salvar, ele limpa > os dados no edit.text e insere no banco, porém, para limpar estou > fazendo desse jeito no código: > EdtCep.Text:=' '; > EdtBairro.Text:=' '; > EdtCidade.Text:=' '; > EdtTelfixo.Text:=' '; > Existe alguma outra forma de limpar tudo isto de uma só vez, para > diminuir o meu código? > grato, > Jefferson > __________________________________________________________ > Veja quais são os assuntos do momento no Yahoo! +Buscados > http://br.maisbuscados.yahoo.com > [As partes desta mensagem que não continham texto foram removidas] > -- Rod http://www.radiobrgospel.com Você conectado com o som do Céu! [As partes desta mensagem que não continham texto foram removidas]