ID como primera columna en tabla

[ecfisa]

Hola Ramsay.

Visualizar el código del producto podría o no ser relevante para el cliente... Pero en cuanto a mostrar el identificador único (ID) al usuario, opino igual que Agustín, no le veo sentido alguno.

Si estas trabajando con una versión de Delphi que no soporta LiveBindings, el identificador único lo podes guardar en la propiedad Data de cada TListItem.

Un ejemplo básico de como podrías hacerlo:

Código Delphi [-]
// guardar valores
procedure TForm1.FormCreate(Sender: TObject);
var
  it : TListItem;
begin
  DataSet.Open;
  while not DataSet.Eof do
  begin
    it := ListView1.Items.Add;
    it.Caption := DataSet.FieldByName('NOMBRE').AsString;
    it.Data    := Pointer(DataSet.FieldByName('ID').AsInteger);
    DataSet.Next;
  end;
end;

// mostrar
procedure TForm1.Button1Click(Sender: TObject);
var
  lv: TListView;
begin
  lv := ListView1;
  if lv.ItemIndex <> -1 then
    ShowMessage(Format('Nombre: %s, ID: %d',
      [lv.Items[lv.Selected.Index].Caption,          // NOMBRE
      Integer(lv.Items[lv.Selected.Index].Data)]));  // ID
end;

Saludos