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]
