Combobox no delphi em tempo de execu��o

26/07/2023

Pessoal agrade�o desde j� pela ajuda.
Estou a dias tentando resolver uma situa��o que me parece muito simpels, mas o fato � que n�o estou conseguindo se algu�m puder me ajudar.

Estou trabalhando em um aplicativo onde existe apenas uma procedure para insert ou update ou seja se o id e null insert se existe um id update at� aqui tudo certo. O problema se da no preenchimento dos combobox para update pois eles precisam aparecer ja com os dados carregados do banco.


 with Dm.cdsListaCategoria do
  begin
    // vCategoriaId := 0;
    Close;
    Open;
    cbbCategoria.Items.Clear;
    First;
    while not Eof do
    begin
      cbbCategoria.Items.AddObject(FieldByName('descricao').AsString,
        TObject(FieldByName('id').AsInteger));
      Next;
    end;
  end;
   Dm.cdsListaCategoria.Free ;
end;

//////////////////////////codigo do evento onchange do combobox 
  vCategoriaOId := Integer(cbbCategoria.Items.Objects[cbbCategoria.ItemIndex]);

Esse c�digo funciona para o primeiro combo mas inexplicavelmente nao funciona para o segunto combo que seria o cbbEmpresaId . Eu preciso pegar o Id da tabela e n�o o itemindex pois como � uma tabela grande se pula um numero de id causar� erro. Se alguem puder me ajudar agrade�o demais.

Carlos Faria

Curtir t�pico + 0

Responder