Ayuda con ComboBox

[*Caro*]

Hola paladincubano, yo utilizaría un StringList para llenar los Id.

En el momento en que llenas los datos en tu ComboBox

Código Delphi [-]
 sl: TStringList;
begin
  sl:=TStringList.Create;
  
  Query.First;
  While Not Query.Eof do
   begin
    ComboBox.Items.Add(Query.FieldByName('pais').AsString); 
    sl.Add(Query.FieldByName('IdPais').AsString);
    Query.Next;
   end;

Ahora en el momento que quieras recuperar el codigo, solo sería acceder al StringList en la posición en la que esta tu ComboBox.

Código Delphi [-]
 showmessage(sl[ComBox.ItemIndex]);

Pero también puedes utilizar un BDLookUpComboBox.

Saluditos

[paladincubano]

Ya gracias por tu ayuda y lo rapido en contestar. Pero ya habia pensado en hacer eso, de echo, lo habia implementado en algunos casos que necesitaba con mucha frecuencia. Pero no se, mucho trabajo, por eso preguntaba si habia alguna forma de hacerlo directamente en el combobox con InsertObject o algo asi. Si no hay otra forma de hacerlo, pues bueno, siempre queda eas que dices que por supuesto es mejor que la que yo implemento a veces que es buscar el nombre en la base de datos y sacar el id (cuando no se repiten datos).
de todas formas gracias de nuevo.

[[Lepe]]

Puedes usar una rutina genérica:

Código Delphi [-]
procedure CargaCampo(campo:string; CampoId:String; Lista:TStrings);
begin

 
  // ese codigo aqui con esta modificación:
  Lista.AddObject( Fieldbyname(campo).asString, pointer(Fieldbyname(CAmpoId).AsInteger));
end;

ya sólo tienes que llamar a esta rutina con

Código Delphi [-]
CargaCampo('pais','idpais', combobox1.items
id := integer(combobox1.items.Objects[combobox.itemindex]); //así sacas el ID guardado

... o usar un DBLookUpCombobox, (aunque no tendrá todas las funcionalidades, pero bueno.

Saludos

[paladincubano]

Vale, encontre lo que buscaba.

http://www.clubdelphi.com/foros/show...light=combobox

gracias por todo.

Edito: Por si a alguien le sirve mas explicito el codigo es:

ComboBox1.Items.AddObject(DM.Query1['Pais'],TObject(Integer(DM.Query1['idPais'])));

y para sacar el id es:

Index:= Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);