Concatenar DBLookupComboBox em um Edit

Delphi

04/09/2020

Boa tarde pessoal

No meu projeto tenho 4 dblookupcombobox e 1 Edit. Os dblookupcombobox eu uso para especificar cores. O que estou querendo fazer é o seguinte. Ao sair do 4 dblookupcombobox , o Edit pegue as descrições das cores e concatene pra ficar todas dentro do Edit, como no exemplo abaixo

1 dblookupcombobox : amarelo
2 dblookupcombobox : branco
3 dblookupcombobox : preto
4 dblookupcombobox : verde
ao sair aqui (no evento onexit do dblookupcombobox ou no evento entrar do Edit, ele fazer a junção de todas as cores separados por um hífen como no exemplo abaixo:

Edit : amarelo-branco-preto-verde

Gostaria de saber como fazer o código.


Aproveito e pergunto como seria a linha de código para salva no banco de dados essa concatenação (ja criei um campo X pra salva essa concatenação), ao clicar no botão salvar.


Obrigado desde já pela ajuda.
Rubens Pena

Rubens Pena

Curtidas 0
POSTAR