Problema Al Obtener Elementos En Combobox

[Ignacio Gentile]

Chris aca te dejo el código completo de ese Procedimiento que dices..Los valores se cargan bien porque en el combo se desplega con todos los elementos que deberían aparecer, solo que al seleccionar uno de ellos (el index lo obtiene bien) el resultado es siempre el mismo objeto..

Código Delphi [-]
procedure TfrmElegirEmpresa.ListaEmpresa;
var nuevoItem,Item2:TEmpresa;
    bandera,i,j:integer;
begin 
      ZQuery1.Connection := frmTablas.ConnectionJHL;
      ZQuery1.SQL.Clear;
      ZQuery1.SQL.Text := 'select obtener_empresas (' + IntToStr(frmLogin.codigo_usuario) + ')' ;
      ZQuery1.Open;

      cmbEmpresa.Items.Clear;
      nuevoItem := TEmpresa.Create;
      frmTablas.tblEmpresa.First;
      for i:= 0 to frmTablas.tblEmpresa.RecordCount-1 do
        begin
          nuevoItem.id := frmTablas.tblEmpresa['cod_empresa'] ;
          nuevoItem.Descripcion := frmTablas.tblEmpresa['razon_social'];
          ZQuery1.First;
          for j:=0 to ZQuery1.RecordCount-1 do
          begin
             if (DBGrid1.Fields[0].Value = nuevoItem.id) then
              begin
                  cmbEmpresa.Items.AddObject(nuevoItem.Descripcion, nuevoItem);
              end;
             ZQuery1.Next
          end;
        frmTablas.tblEmpresa.Next;
        end;
end;

[*Caro*]

Hola Ignacio Gentile, tu codigo para añadir y recuperar objetos de tu ComboBox esta bien, el problema es que solo estas creando un objeto de TEmpresa (por eso solo se va modificando los valores que tiene y al final queda con los datos de tu ultimo registro, osea todos los items de tu combobox apuntan al mismo objeto), debes crear tus objetos de TEmpresa dentro del For.

Código Delphi [-]
     frmTablas.tblEmpresa.First;
      for i:= 0 to frmTablas.tblEmpresa.RecordCount-1 do
        begin
          nuevoItem := TEmpresa.Create;
          nuevoItem.id := frmTablas.tblEmpresa['cod_empresa'] ;
          .......................................................
          .......................................................
          .......................................................    
        end;

Saluditos

[ecfisa]

Hola Ignacio.

Podrías cargar el ComboBox desde el procedimiento directamente con el query:

Código Delphi [-]
procedure TfrmElegirEmpresa.CargarEmpresas(AQuery: TZQuery; AComboBox:TComboBox);
begin
  AQuery1.Connection := frmTablas.ConnectionJHL;
  AQuery.SQL.Text:='SELECT * FROM TABLA_EMPRESAS';
  AQuery.Open;
  while not AQuery.Eof do
  begin
    AComboBox.Items.AddObject(AQuery.FieldByName('razon_social').AsString,
       TObject(AQuery.FieldByName('cod_empresa').AsInteger));
   AQuery.Next;
  end;
  AQuery.Close;
  AComboBox.Sorted:= True;
end;

Aquí ya tendrías cargado en el ComboBox la razón social y el código. (ordenado por razón social)



Luego para obtener el código de empresa sólo basta con hacer:

Código Delphi [-]
procedure TForm1.cmbEmpresaChange(Sender: TObject);
var
  cod: Integer;
begin
  cod:= Integer(cmbEmpresa.Items.Objects[cmbEmpresa.ItemIndex]);
  ShowMessage(IntToStr(cod));
  ...
end;

Si cod_empresa es de tipo string, tendrías que cambiar:

Código Delphi [-]
  TObject(AQuery.FieldByName('cod_empresa').AsInteger)
  // Por
  TObject(AQuery.FieldByName('cod_empresa').AsString)

Y en el evento cmbEmpresaChange, cambiar el tipo de la variable cod y quitar la conversion.


Saludos.