Problema Al Obtener Elementos En Combobox

[Ignacio Gentile]

Buenas! Mi problema es que agrego elementos a un combobox y se agregan bien, los muestra bien pero al momento de seleccionar uno siempre me selecciona el mismo..Evaluando el ItemIndex me doy cuenta de que obtiene bien el index del elemento seleccionado pero no me devuelve el objeto incorrecto y no le puedo encontrar el problema de porque pasa eso..Revisando el código no encuentro el error. Dejo el segmento de código,si alguno me puede ayudar seria bueno

Código Delphi [-]
type
  TEmpresa = class (TObject)
    id:integer;
    descripcion:string;
  end;

procedure TfrmElegirEmpresa.ListaEmpresa;
var nuevoItem:TEmpresa;
    j:integer;
begin
      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;
end;

procedure TfrmElegirEmpresa.cmbEmpresaChange(Sender: TObject);
var indice:integer;
    item:TEmpresa;
begin
   indice:=cmbEmpresa.ItemIndex;
   item:= TEmpresa(cmbEmpresa.Items.Objects[indice]);
   edtEmpresa.Text := IntToStr(item.id) ;

   cmbSucursal.Items.Clear;
   ListaSucursal(item.id);
end;

[[Chris]]

Hola Ignacio! En el siguiente procedimiento:

Empezado por Ignacio Gentile

Código Delphi [-]
procedure TfrmElegirEmpresa.ListaEmpresa;
var nuevoItem:TEmpresa;
    j:integer;
begin
      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;
end;

No veo donde estés creando y asignando los debidos valores al objeto nuevoItem de tipo TEmpresa. Talvez sea allí que de tu problema. Supongo que siempre el código edtEmpresa.Text := IntToStr(item.id) te devuelve 0.

Saludos,
Chris

[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.