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.

Ler Mais...

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:

1	`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