Campo clave y campo valor en un ComboBox

[santiago14]

Buenas, tengo que resolver algo mas o menos "sencillo". Necesito traer desde una Tabla (Firebird 2.1) dos campos: cod_cliente, nombre_cliente. Una lista con un Select...

Quiero poner nombre_cliente en un comboBox para que se le despliegue al usuario pero, al momento de guardar en la BD, uso solamente cod_cliente.

La cosa es así, en un TComboBox no puedo traer ambos valores, mostrar uno y guardarme el otro para usarlo cuando quiera. En un TDBComboBox si es posible (keyValue, KeyField, KeyValue)

Ahora bien; si NO quisiera usar TDBComboBox, ¿qué otra opción tengo? ¿Hay algún componente que me permita guardar la estructura (clave, valor) y poder hacer lo que comento (exceptuando el TDBComboBox claro)?

Espero haber sido claro, gracias y buen fin de semana.

Santiago.

[ecfisa]

Hola santiago14.

Empezado por santiago14

...
La cosa es así, en un TComboBox no puedo traer ambos valores, mostrar uno y guardarme el otro para usarlo cuando quiera. En un TDBComboBox si es posible (keyValue, KeyField, KeyValue)
...

No es complicado hacer lo que queres usando un TComboBox:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  while not IBQuery.Eof do
  begin
    ComboBox1.AddItem(IBQuery.FieldByName('NOMBRE_CLIENTE').AsString,
      TObject(IBQuery.FieldByName('COD_CLIENTE').AsInteger));
    IBQuery.Next;
  end;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  with ComboBox1 do
    ShowMessage(Format('%s %d',[Items[ItemIndex], // NOMBRE_CLIENTE
      Integer(Items.Objects[ItemIndex])]));       // COD_CLIENTE
end;

(Creo haber contestado esto en un hilo anterior pero no pude encontrarlo. )

Saludos

[santiago14]

Gracias compañero, la verdad que me sacaste de un lío bárbaro.

[santiago14]

Hasta ahora con la gran ayuda que obtuve aquí me fue muy bien.
Resulta que necesito eliminar los elementos del combo, los de la lista son fáciles (combo.clear) pero los objetos asociados no se como hacerlo. No estoy seguro que al hacer .clear de la lista se eliminen los objetos asociados, si es así, mi problema está resuelto sino, pido ayuda.

Necesito eliminar todos los objetos asociados de una, algo así como el .clear del combo para ponerlo en limpio y volver a cargarlo. La ayuda de Delphi, en el objeto Items, dice:

The TStrings object does not own the objects in the Objects array. Objects added to the Objects array still exist even if the TStrings object is destroyed. They must be explicitly destroyed by the application.

En alusión a esto es que escribo.

Espero haber sido claro.

Gracias.

[ecfisa]

Hola santiago14.

Correcto, una instancia de TStrings no es propietaria de los objetos asociados, por lo que es tu tarea liberar la memoria ocupada. Si bien lo podes realizar directamente sobre el combobox, por motivos de reusabilidad tal vez te convenga hacerte una función que lo haga para cualquier componente que utilice TStrings.

Código Delphi [-]
...
procedure FreeObjects(TS: TStrings);
var
  i: Integer;
begin
  TS.Clear;
  for i := TS.Count-1 downto 0 do
  begin
    TS.Objects[i].Free;
    TS.Objects[i] := nil
  end;
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.FormDestroy(Sender: TObject);
begin
  FreeObjects(ComboBox1.Items);
  FreeObjects(ListBox1.Items);
  FreeObjects(Memo1.Lines);  
  // etc
end;

Saludos

[santiago14]

He estado conversando con gente del equipo donde trabajo respecto a la solución que plantea ecfisa; la verdad que a mí me parece muy buena y pone punto final a un problem que es recurrente.

Uno de los chicos del grupo argumenta que "podría ser una solución algo lenta" cuando se trate de llenar, en este caso un Combo, con muchos datos que vienen de la BD. Digamos 5.000 registros.

Yo la verdad que no creo, pero... ¿Alguien a hecho esa medición?

Gracias.

Santiago.