Capturar datos de un combobox

[Neftali [Germán.Estévez]]

Otra opción es utilizar el puntero del segundo parámetro para almacenar un entero. De esa forma aprovechas ese valor. Piensa que al final el puntero no es más que un número.

Puede añadir los valores al combobox de esta forma:

Código Delphi [-]
  // en tu caso en segundo valor serían los valores del ID
  ComboBox1.AddItem('Lunes', Pointer(1234));
  ComboBox1.AddItem('Martes', Pointer(34));
  ComboBox1.AddItem('Miercoles', Pointer(9999));

Para recuperar los valores del ID, del elemento seleccionado puedes hacer lo siguiente:

Código Delphi [-]
  // Hay algo seleccionado
  if (ComboBox1.ItemIndex <> -1) then begin
    // puntero al objeto del elemento seleccionado
    p := Pointer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
    // Obtenemos el entero almacenado
    i := Integer(p);
    // lo pintamos en un label
    Label1.Caption := IntToStr(i);
  end;

Un saludo.