Davi, realmente está retornando nil. Mas os componentes existem, e são da classe Tjvlabel. Por que será que ele retorna nil? Fiz da forma que você sugeriu e não dá mais o erro, mas ele retorna nil.
----- Mensagem original ---- De: Davi Eduardo Borges Wall <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 5 de Setembro de 2007 8:38:49 Assunto: RES: [delphi-br] setar componentes em lote Eu sou mais adivinhão!! =D with TJvlabel(FindCompon ent(apart) ) do Provavelmente o erro da nessa linha sim, provavelmente FindComponent( apart) está retornando nil. Tente fazer desta forma If assigned(TJvlabel( FindCompon ent(apart) ) then with TJvlabel(FindCompon ent(apart) ) do ... ... ... []'s De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em nome de Andre Luis Silveria Enviada em: quarta-feira, 5 de setembro de 2007 08:10 Para: [EMAIL PROTECTED] os.com.br Assunto: Res: [delphi-br] setar componentes em lote Primeiro qual o erro que ele retorna ? Podemos ser bons em programação, mas advinhar acho que ninguem aqui consegue... Mas vou arriscar, se o seu problema está na linha: if tabelaData.Value = null then .ImageIndex := 1 else ImageIndex := 0; tente usar a unit variants. GYNCOWBOY André Luis da Silveira ----- Mensagem original ---- De: Fabinho <gatascheguei@ yahoo.com. br <mailto:gataschegue i%40yahoo. com.br> > Para: [EMAIL PROTECTED] os.com.br <mailto:delphi- br%40yahoogrupos .com.br> ; lista-delphi@ yahoogrupos. com.br <mailto:lista- delphi%40yahoogr upos.com. br> Enviadas: Terça-feira, 4 de Setembro de 2007 21:35:52 Assunto: [delphi-br] setar componentes em lote Moçada, boa noite. Tenho um form com 36 Tjvlabel. Esses componentes tem a propriedade Imageindex, que preciso setar como 0 ou 1, conforme um dado vindo do campo tabeladata, no banco de dados, com 36 registros. Esses tjvlabels são nomeados assim: lb101, lb102... até lb136. Os registros no campo tabeladata (tipo integer) vão de 1 a 36. Na procedure abaixo, o delphi passa para a variavel apart a string 'lb1' mais o dado do campo tabeladata formatado, que no primeiro registro é 1, formatando vira 01. Portanto, a variavel apart fica com o valor 'lb101', que ´nome do primeiro Tjvlabel. Então o delphi varre a tabela lendo o dado no campo tabeladata. Se esse dado for null, seta a propriedade imageindex do primeiro Tjvlabel - nesse caso o lb101 - para 1, senão seta para 0. Próximo registro, e tudo de novo. Acontece que, ele da erro na linha abaixo: with TJvlabel(FindCompon ent(apart) ) do var apart: string; begin tabela.First; while not tabela.Eof do begin apart := 'lb1' + FormatFloat( '00',FIBIntegerF ield3.Value) ; with TJvlabel(FindCompon ent(apart) ) do if tabelaData.Value = null then .ImageIndex := 1 else ImageIndex := 0; tabela.Next; end; end; grato. Flickr agora em português. Você clica, todo mundo vê. http://www.flickr. com.br/ [As partes desta mensagem que não continham texto foram removidas] <!-- #ygrp-mkp{ border:1px solid #d8d8d8;font- family:Arial; margin:14px 0px;padding: 0px 14px;} #ygrp-mkp hr{ border:1px solid #d8d8d8;} #ygrp-mkp #hd{ color:#628c2a; font-size: 85%;font- weight:bold; line-height: 122%;margin: 10px 0px;} #ygrp-mkp #ads{ margin-bottom: 10px;} #ygrp-mkp .ad{ padding:0 0;} #ygrp-mkp .ad a{ color:#0000ff; text-decoration: none;} --> <!-- #ygrp-sponsor #ygrp-lc{ font-family: Arial;} #ygrp-sponsor #ygrp-lc #hd{ margin:10px 0px;font-weight: bold;font- size:78%; line-height: 122%;} #ygrp-sponsor #ygrp-lc .ad{ margin-bottom: 10px;padding: 0 0;} --> <!-- #ygrp-mlmsg {font-size:13px; font-family: arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit; font:100% ;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height: 1.22em;} #ygrp-text{ font-family: Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family: Arial; clear:both;} #ygrp-vitnav{ padding-top: 10px;font- family:Verdana; font-size: 77%;margin: 0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin: 25px 0;white-space: nowrap;color: #666;text- align:right; } #ygrp-actbar .left{ float:left;white- space:nowrap; } .bld{font-weight: bold;} #ygrp-grft{ font-family: Verdana;font- size:77%; padding:15px 0;} #ygrp-ft{ font-family: verdana;font- size:77%; border-top: 1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom: 10px;} #ygrp-vital{ background-color: #e0ecee;margin- bottom:20px; padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77% ;font-family: Verdana;font- weight:bold; color:#333; text-transform: uppercase; } #ygrp-vital ul{ padding:0;margin: 2px 0;} #ygrp-vital ul li{ list-style-type: none;clear: both;border: 1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight: bold;color: #ff7900;float: right;width: 2em;text- align:right; padding-right: .5em;} #ygrp-vital ul li .cat{ font-weight: bold;} #ygrp-vital a{ text-decoration: none;} #ygrp-vital a:hover{ text-decoration: underline; } #ygrp-sponsor #hd{ color:#999;font- size:77%; } #ygrp-sponsor #ov{ padding:6px 13px;background- color:#e0ecee; margin-bottom: 20px;} #ygrp-sponsor #ov ul{ padding:0 0 0 8px;margin:0; } #ygrp-sponsor #ov li{ list-style-type: square;padding: 6px 0;font-size: 77%;} #ygrp-sponsor #ov li a{ text-decoration: none;font- size:130% ;} #ygrp-sponsor #nc{ background-color: #eee;margin- bottom:20px; padding:0 8px;} #ygrp-sponsor .ad{ padding:8px 0;} #ygrp-sponsor .ad #hd1{ font-family: Arial;font- weight:bold; color:#628c2a; font-size: 100%;line- height:122% ;} #ygrp-sponsor .ad a{ text-decoration: none;} #ygrp-sponsor .ad a:hover{ text-decoration: underline; } #ygrp-sponsor .ad p{ margin:0;} o{font-size: 0;} .MsoNormal{ margin:0 0 0 0;} #ygrp-text tt{ font-size:120% ;} blockquote{margin: 0 0 0 4px;} .replbq{margin: 4;} --> Flickr agora em português. Você clica, todo mundo vê. http://www.flickr. com.br/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas]
