Hola de neuvo.
Siguiendo el consejo de ecfisa y variando un poco la salida de datos, he conseguido que en el combobox pueda seleccionar el campo Epoca (texto) y ver en un edit el campo Epoca_Num (numero).
Código Delphi
[-]procedure TF_Sel_Epoca.FormCreate(Sender: TObject);
begin
Selec1.Open;
while not Selec1.Eof do
begin
ComboBox1.AddItem(Selec1EPOCA.AsString, TObject(Selec1EPOCA_NUM.AsInteger));
Selec1.Next;
end;
Selec1.Close;
Selec2.Open;
while not Selec2.Eof do
begin
ComboBox2.AddItem(Selec2EPOCA.AsString, TObject(Selec2EPOCA_NUM.AsInteger));
Selec2.Next;
end;
Selec2.Close;
end;
Código Delphi
[-]procedure TF_Sel_Epoca.ComboBox1Click(Sender: TObject);
var
cb: TComboBox;
num: Integer;
epo: string;
begin
cb := TComboBox(Sender); epo := cb.Items[cb.ItemIndex]; num := Integer(cb.Items.Objects[cb.ItemIndex]);
Edit1.Text:=IntToStr(num);
end;
He probado a variar los parametros para que el combobox mostrara el campo Epoca_num y el edit el campo Epoca sin resultado satisfactorio.
Es posible hacerlo?
Gracias
La opcion de duilioisola no he podido probarla ya que no consigo declarar el procedure o lo declaro mal o en sitio erroneo.
Josep