Preencher caption de painéis com dados de uma tabela

[Sérgio Assunção]

Boa tarde amigos...

Tenho uma sequencia com 14 paineis que preciso preencher o caption de cada um com os dados de uma tabela com o cardapio do dia.

Exemplo: Se o campo "prato" primeiro registro da tabela for um "feijoada" eu tenho preencher o caption do primeiro painel com a palavra "feijoada", avançar um registro e mudando os proximos paineis até o ultimo.

Alguem pode me dar um help?

Obrigado.

Sérgio

[Eisenheim]

Blz amigo?

Eu faria o seguinte: Na tabela da onde vier as informações das refeições, eu acrescentaria uma coluna com a "ordem" dos pratos.

Digamos que eu tenha os registros:

Feijoada = 2

Panqueca = 1

Peixe = 3

Você ordenaria os registros pela ordem das refeições e colocaria nos Painels assim:

Tabela.First;

while not Tabela.Eof do

begin

TPainel( FindComponent('Painel'+TabelaOrdem.AsString) ).Caption := TabelaCardapio.AsString;

Tabela.Next;

end;

A única exigência seria ser seus Painels renomeados seguindo a ordem de 1 a 14.

Espero ter ajudado.

Até+

[Sérgio Assunção]

Blz amigo?

...

Espero ter ajudado.

Até+

Ajudou muito meu amigo... muito obrigado.

Veja como ficou o resultado final...

while not qCardapio.Eof do begin

  TPanel( FindComponent('pAtalho'+IntToStr(qCardapio.RecNo)) ).Caption := qCardapioDESCRICAO.AsString;

  qCardapio.Next;

  if qCardapio.RecNo > 14 then

     Abort;

end;

Sérgio

[Eisenheim]

Blz amigo?

 

Que bom que tenha ajudado.

 

Até a próxima.