procedure LimpaEdit (Form: TForm); var i : Integer; begin for i := 0 to Form.ComponentCount - 1 do if Form.Components[i] is TCustomEdit then (Form.Components[i] as TCustomEdit).Clear; end; // assim limpara todos os Edits, Memos, MaskEdits, etc...
________________________________ De: Jefferson Eduardo <je.del...@yahoo.com.br> Para: grupo <delphi-br@yahoogrupos.com.br> Enviadas: Quinta-feira, 17 de Dezembro de 2009 8:49:47 Assunto: [delphi-br] Limpar todos os edits de uma só vez! 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.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] ____________________________________________________________________________________ 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]