RES: RES: [delphi-br] setar componentes em lote
FindComponent
Indicates whether a given component is owned by the component.
Essa frase eu retirei do help do Delphi.
Seguinte, o owner dos componentes deve ser o objeto que chama o findcomponent.
Ali no seu caso acredito que seria Self.FindComponent então seus labels devem
ter como owner o self (que acredito que no seu caso é um formulário)
Então.. Seguinte, crie seus labels assim Label := TLabel.Create(self); // esse
self tem que ser o mesmo do findcomponent
[]'s
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fabinho
Enviada em: quarta-feira, 5 de setembro de 2007 16:06
Para: delphi-br@yahoogrupos.com.br
Assunto: Res: RES: [delphi-br] setar componentes em lote
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]
mailto:davi.wall%40mult.com.br
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.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:#ff; 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
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 [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br; [EMAIL PROTECTED]
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:#ff;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]
Res: Res: [delphi-br] setar componentes em lote
Desculpe, esqueci de informar o erro. É um daqueles erros maravilhosos:
Access violation at address 005e7cee in module 'project1.exe'. Read of address
01ac.
Executei com o F7 e ele aparentemente dá o erro na linha abaixo:
with Tjvlabel(FindComponent(apart)) do
grato pela atenção.
- Mensagem original
De: Andre Luis Silveria [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 5 de Setembro de 2007 8:09:32
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
Para: [EMAIL PROTECTED] os.com.br; lista-delphi@ yahoogrupos. 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:#ff; 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
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: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Andre
Luis Silveria
Enviada em: quarta-feira, 5 de setembro de 2007 08:10
Para: delphi-br@yahoogrupos.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 [EMAIL PROTECTED] mailto:gatascheguei%40yahoo.com.br
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ;
[EMAIL PROTECTED] mailto:lista-delphi%40yahoogrupos.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:#ff;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
Re: Res: [delphi-br] setar componentes em lote
Não sei se ajuda, vc colocou na uses o sharemem
Wesley
- Original Message -
From: Fabinho
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, September 05, 2007 9:23 AM
Subject: Res: Res: [delphi-br] setar componentes em lote
Desculpe, esqueci de informar o erro. É um daqueles erros maravilhosos:
Access violation at address 005e7cee in module 'project1.exe'. Read of
address 01ac.
Executei com o F7 e ele aparentemente dá o erro na linha abaixo:
with Tjvlabel(FindComponent(apart)) do
grato pela atenção.
- Mensagem original
De: Andre Luis Silveria [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 5 de Setembro de 2007 8:09:32
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
Para: [EMAIL PROTECTED] os.com.br; lista-delphi@ yahoogrupos. 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:#ff; 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
Res: RES: [delphi-br] setar componentes em lote
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:#ff; 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
[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(FindComponent(apart)) do
var apart: string;
begin
tabela.First;
while not tabela.Eof do begin
apart := 'lb1' + FormatFloat('00',FIBIntegerField3.Value);
with TJvlabel(FindComponent(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]
