Obter o id do combobox com lazarus

fariaregis
(usa Ubuntu)

Enviado em 25/12/2022 - 14:11h

Pessoal desde de já agradeço a todos. Sou iniciante no Lázarus embora já programo em Delphi a mais de uma década as vezes me aparecem umas aramadilhas aqui como essa de agora.

Eu preciso pegar o id do select que popula o combobox eis o codido

 //// populando combobox empresa

  with servicebasequery.qryListaEmpresa do

  begin

    Close;

    Open;

    cbbEmpresa.Items.Clear;

    First;

    while not EOF do

    begin

      cbbEmpresa.Items.AddObject(FieldByName('empresa_alias').AsString,

        TintObjs.Create(FieldByName('id').AsInteger));

      Next;

    end;

  end;        



 

precisei criar uma classe para converter o tipo do dado pois o lazarus nao esta aceitando integer

  TintObjs =class

    private

      Fintvalue : PtrInt;

      public

        constructor create (aIntvalue:PtrInt);

       property Value: PtrInt read FIntValue;

  end;



implementation



{ TintObjs }



constructor TintObjs.create(aIntvalue: PtrInt);

begin

  FIntValue := AIntValue;

end;                     

 

A questão agora é que o numero do id aparece outro totalmente diferente ao inves de 6 aparece 2005874147 alguem pode me ajudar por favor
envento no onchange do combo

  aEmpresa := PtrInt(cbbEmpresa.Items.Objects[cbbEmpresa.ItemIndex]);