Combobox no delphi em tempo de execução

Delphi

CRUD - Delphi

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

Carlos Faria

Curtidas 0
POSTAR