[Resolvido] Carregar dados em combobox

[Renanbg 1]

Estou usando essa rotina pra carregar o nome de um projeto num combobox

 

   With frmdm.tbnomeprojeto do
  begin
  Comboprojeto.Items.Add('SEM PROJETO');
   while not eof do
    begin
    Comboprojeto.Items.Add(FieldByName('Nome_projeto').AsString);
    Next;
   end;
   end;

 

No entanto preciso pegar o codigo de cada item que listei no combobox e jogar num edit.

 

Alguma ideia de como fazer?

[Virgilio Barreto 0]

Boa tarde!

 

Se você quer usar um combobox, que é um componente sem vínculo com bd, o jeito vai ser apelar pra o bom e velho vetor.

Crie um vetor dinâmico e guarde nele, os códigos que você quer exibir no edit.

Se o conteúdo do seu combobox está no index 1, deverá procurar no seu vetor o código correspondente no index 1.

Assim você resolve o problema. Fora isso, acredito que só com componentes de banco, que exibem um valor com base em uma chave (que seria seu código, por exemplo).

 

Virgilio.

 

 

 

Estou usando essa rotina pra carregar o nome de um projeto num combobox

 

   With frmdm.tbnomeprojeto do
  begin
  Comboprojeto.Items.Add('SEM PROJETO');
   while not eof do
    begin
    Comboprojeto.Items.Add(FieldByName('Nome_projeto').AsString);
    Next;
   end;
   end;

 

No entanto preciso pegar o codigo de cada item que listei no combobox e jogar num edit.

 

Alguma ideia de como fazer?

[Renanbg 1]

Obrigado pela dica Virgilio.

 

Realmente nesse caso o vetor é a solução.