ID como primera columna en tabla

[ecfisa]

Hola Ramsay.

Empezado por Ramsay

gracias por responder ecfisa , me has dejado con una duda , ¿ en los combobox tambien se puede almacenar el id como me mostraste en listview ? , te lo pregunto porque veo que se hace algo asi :

Código Delphi [-]
ComboBox.AddItem(TPerson(PersonList[i]).Name, PersonList[i]);

No me queda claro como se extraeria el id seleccionado en este caso.

Ejemplo:

Código Delphi [-]
...
// guardar columnas NOMBRE e ID en el combo
procedure TForm.FormCreate(Sender: TObject);
begin
  TuQuery.Close;
  TuQuery.SQL.Text := 'SELECT ID, NOMBRE FROM TU_TABLA';
  TuQuery.Open;
  while not TuQuery.Eof do
  begin
    ComboBox1.AddItem( TuQuery.FieldByName('NOMBRE').AsString,
      TObject(TuQuery.FieldByName('ID').AsInteger) );
    TuQuery.Next;
  end;
end;

// extraer los datos NOMBRE e ID del combo
procedure TForm.ComboBox1Change(Sender: TObject);
var
  nombre: string;
  id: Integer;
begin
  if ComboBox1.ItemIndex  <> -1 then
  begin
    nombre := ComboBox1.Items[ComboBox1.ItemIndex];
    id     := Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
    ShowMessage(Format('%s %d',[nombre, id]));
  end;
end;

Saludos