Ver Mensaje Individual
  #3  
Antiguo 27-11-2017
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

En tu código estas cargando el mismo campo (SelecEPOCA_NUM) en el combo.

Te pongo un ejemplo que hace lo que entendí que deseabas hacer:
Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  Selec.Open;
  while not Selec.Eof do
  begin
    ComboBox1.AddItem(SelecEPOCA.AsString, TObject(SelecEPOCA_NUM.AsInteger));
    Selec.Next;
  end;
  Selec.Close;
end;

procedure TForm1.ComboBox1Click(Sender: TObject);
var
  cb: TComboBox;
  num: Integer;
  epo: string;
begin
  cb  := TComboBox(Sender);      // SelecEPOCA
  epo := cb.Items[cb.ItemIndex]; // SelecEPOCA_NUM
  num := Integer(cb.Items.Objects[cb.ItemIndex]);
  ShowMessageFmt('EPOCA         : %s%sEPOCA_NUM: %d',[epo, #10,num]);
end;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita