> Voce precisa fazer algo assim: > > procedure TMeuForm.Limpa_Dados; > var > i : Integer; >begin > for i:=0 to ComponentCount-1 do > begin > if Components[i] is TEdit then > begin > TEdit(Components[i]).Text:=''; > end; > if Components[i] is TDateEdit then
Desculpe, mas isso é coisa de quem "adora" trabalho braçal... Seja um programador preguiçoso e faça algo mais genérico... e como já disse, procure por RTTI e Delphi. http://everything2.com/index.pl?node_id=965707 http://blogoscoped.com/archive/2005-08-24-n14.html Jackson Gomes Tools&Comps - Controle de Usuários para Desenvolvedores Borland/CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 ---------------------------------------------------------------------------- Devhost - Webhost para desenvolvedores Borland http://www.devhost.com.br [EMAIL PROTECTED]