F�rum Combobox.Items.AddObject #423009

31/08/2012

Boa tarde caros amigos,

Estou com dificuldade em localizar um object dentro de um combobox.
Vou explicar o que preciso.

Eu tenho uma Query que vou adicionando os dados dentro do combo desta forma abaixo.

qConsulta.First;
While Not qConsulta.Eof Do
Begin
cbxSeguimento.Items.AddObject( qConsulta.FieldByName( 'Seguimento' ).AsString, TObject
( qConsulta.FieldByName( 'cd_seguimento' ).AsInteger ) );
qConsulta.Next;
End;

Agora eu n�o estou conseguindo localiar o object adicionado no combo.
gostaria de localizar este object depois de ter adicionado, que � o cd_seguimento.
( qConsulta.FieldByName( 'cd_seguimento' ).AsInteger ) );

Algu�m j� passou por isto ? estou precisando de ajuda.

Ricardo Araujo

Curtir t�pico

+ 0

Responder

Post mais votado

31/08/2012

Um exemplo ..

with  ComboBox1.Items do
 begin
    if IndexOf(O que vc quer pesquisar em String) >= 0 then
      showmessage(TSuaClasse(Objects[IndexOf(O que vc quer pesquisar em String)]).UmaPropriedade);
 end;
end;

Marco Salles

Responder

Gostei + 1

Mais Posts

31/08/2012

Ricardo Araujo

Boa tarde caros amigos,

Estou com dificuldade em localizar um object dentro de um combobox.
Vou explicar o que preciso.

Eu tenho uma Query que vou adicionando os dados dentro do combo desta forma abaixo.

qConsulta.First;
While Not qConsulta.Eof Do
Begin
cbxSeguimento.Items.AddObject( qConsulta.FieldByName( 'Seguimento' ).AsString, TObject
( qConsulta.FieldByName( 'cd_seguimento' ).AsInteger ) );
qConsulta.Next;
End;

Agora eu n�o estou conseguindo localizar o object adicionado no combobbox.
gostaria de localizar este object depois de ter adicionado, que � o cd_seguimento.
( qConsulta.FieldByName( 'cd_seguimento' ).AsInteger ) );

Algu�m j� passou por isto ? estou precisando de ajuda.

Responder

Gostei + 0

01/09/2012

Ricardo Araujo

Boa noite Amigos,

Marcos Antonio

Dei uma olhada no que voc� escreveu, e conseguir o resultado que estava esperando.

Segue abaixo o c�digo, que usei para pagar o object dentro do combobox.

pCd_Seguimento :=
cbxSeguimento.Items.IndexOfObject(TObject(DMDados.cdsSubst_Tributaria.FieldByName('cd_seguimento').AsInteger));

Muito obrigado
Att
Rbbarreto

Responder

Gostei + 1

23/10/2013

Eduardo Mendon�a

Bom dia

teria como eu adicionar os item no ComboBox escolhendo o �ndex de cada item tipo �ndex 0 item 1, �ndex 1 item 3, �ndex 2 item 5 ....

Responder

Gostei + 0

23/10/2013

Alan Souza

para montar os itens:

ComboBox.Items.AddObject('Index 0', Tobject(Integer(1)));
ComboBox.Items.AddObject('Index 1', Tobject(Integer(3)));
ComboBox.Items.AddObject('Index 2', Tobject(Integer(5)));
ComboBox.Items.AddObject('Index 3', Tobject(Integer(1000)));

para recuperar os valores:

Integer(ComboBox.Items.Objects[IndexDesejado])

Obs: qualquer objeto pode ser adicionado � um item, n�o somente valores inteiros.

Responder

Gostei + 0

23/10/2013

Eduardo Mendon�a

No meu caso os no �ndex 0 vai ficar assim ?

  cbNumProcesso.Items.AddObject(frmManutencaoProcessos.dbeNumero_Processo.Text, Tobject(Integer(0)));

  if frmManutencaoProcessos.dbeNumero_Processo2.Text <> '' then
    cbNumProcesso.Items.AddObject(frmManutencaoProcessos.dbeNumero_Processo2.Text,Tobject(Integer(1)));
  if frmManutencaoProcessos.dbeNumero_Processo3.Text <> '' then
    cbNumProcesso.Items.AddObject(frmManutencaoProcessos.dbeNumero_Processo3.Text,Tobject(Integer(2)));
  if frmManutencaoProcessos.dbeNumero_Processo4.Text <> '' then
    cbNumProcesso.Items.AddObject(frmManutencaoProcessos.dbeNumero_Processo4.Text,Tobject(Integer(3)));
  if frmManutencaoProcessos.dbeNumero_Processo5.Text <> '' then
    cbNumProcesso.Items.AddObject(frmManutencaoProcessos.dbeNumero_Processo5.Text,Tobject(Integer(4)));
  if frmManutencaoProcessos.dbeNumero_Processo6.Text <> '' then
    cbNumProcesso.Items.AddObject(frmManutencaoProcessos.dbeNumero_Processo6.Text,Tobject(Integer(5)));
  if frmManutencaoProcessos.dbeNumero_Processo7.Text <> '' then
    cbNumProcesso.Items.AddObject(frmManutencaoProcessos.dbeNumero_Processo7.Text,Tobject(Integer(6)));
  if frmManutencaoProcessos.dbeNumero_Processo8.Text <> '' then
    cbNumProcesso.Items.AddObject(frmManutencaoProcessos.dbeNumero_Processo8.Text,Tobject(Integer(7)));

Responder

Gostei + 0