Amigo pode colocar da seguinte maneira: For I := 0 to Self.ComponentCount - 1 do if Self.Components[I] is TLabel Then TLabel(Self.Components[I]).Caption := ' ';
Declare I como variavel, ou uma outra coisa. Charlles Ferdinand Analista Contábil Tel: (22) 2622-9739 msn: [EMAIL PROTECTED] -----Mensagem original----- De: DelphiStar [mailto:[EMAIL PROTECTED] Enviada em: sexta-feira, 4 de março de 2005 13:41 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Limpar LABEL´s Olá Pessoal Tenho em meu formulário muitos Label´s e gostaria de saber se algum de vocês sabe como fazer para limpa-los, todos ao mesmo tempo sem ter que ficar escrevendo: lblFrete.Caption:=''; lblDiesel.Caption:=''; lblDinheito.Caption:=''; etc etc etc Agradeço a Ajuda Abraço Ademir [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html