Bom dia,
Esta é minha primeira postagem no Blog que de forma simples e rápida gostaria de compartilhar algo que procurei a muito tempo no Delphi e nem sabia que era possível.
Quem nunca pensou… “como seria bacana colocar um valor dinâmico no ComboBox, assim como é possível no PHP por exemplo”.
Realmente é possível, segue abaixo o código:
Explicando o código:
Linhas 37, 39: Adicionei 3 valores na tabela a serem preenchidos no ComboBox.
Linha 41: Método clear para eliminar eventuais valores no combobox a ser preenchido
Linha 46: Atribuído os valores formatados a variável FItem a ser adicionada a seguir.
Linha 47: Utilização do método AddObject passando como primeiro parâmetro FItem e em seguida o CAMPOVALOR como objeto de referencia para o item do ComboBox.
Veja que é possível adicionar um Objeto ao ComboBox, sendo que esse objeto tem um Valor, que é o valor dinâmico recebido pela consulta ao Banco de Dados, e apresenta para a seleção a String CAMPONOME, também retirada do Banco de Dados.
Para buscar o VALOR do objeto no ComboBox use:
Variavel := integer(MeuComboBox.Items.Objects[MeuComboBox.ItemIndex]);
Então é isso pessoal, até a próxima.
Alex R. Schmitt
Delphi Clean Code 