Project Project1.exe raised exeption....

[dec]

Hola,

Ignorantes somos todos en un momento dado. Y nadie nace sabiendo, así que no te preocupes en absoluto. En lo que respecta al problema... lo que ocurre es que es complicado (acaso pudieras copiar por aquí al menos una parte del código fuente implicado en el problema), es complicado, digo, dar una solución concreta.

Dices que si usar un "ComboBox" puede tener que ver... pues hombre, en principio no, pero, si se está tratando de utilizar un "ComboBox" que no ha sido creado o ya ha sido destruído... entonces evidentemente sí habría problemas. No se puede (sin más) saber si el "ComboBox" es culpable, pero, puedes centrarte en depurar el error.

¿Puedes copiar por aquí algo del código fuente relacionado con el problema? Tal vez de ese modo alguien pueda echarte una mano si ve algo, o quiera preguntarte algo a partir de que pueda ver el código fuente en cuestión.

[pnsd_89]

Código Delphi [-]
procedure TFSucursal.BitBtn3Click(Sender: TObject);
var
   sSQL, sFROM, sWHERE, sORDER, sEsquema,sent: string;
begin
     sSQL   := EmptyStr;
     sFROM  := EmptyStr;
     sWHERE := EmptyStr;
     sORDER := EmptyStr;

     sEsquema := 'dba.';


     sSQL  := 'select * ';
     sFROM := 'from '+sEsquema+'sucursal_mh ';
     sWHERE:= 'where 0 = 0 ';

     if not ( Trim( DBLFiltra_sucursal.Text ) = EmptyStr ) then
        sWHERE := sWHERE + 'and cod_sucursal_mh = '+ (DBLFiltra_sucursal.KeyValue);
     sORDER := ' order by des_sucursal_mh';
     DMSucursales.QrySucursal_MH.SQL.Clear;
     DMSucursales.QrySucursal_MH.SQL.Add ( sSQL + sFROM + sWHERE + sORDER );
     DMSucursales.CDSsucursal_mh.Close;
      sent:=(sSQL+sFROM+sWHERE+sORDER);
      ShowMessage(sent);
     UCerrarAbrirPG(DMSucursales.CDSsucursal_mh, Self); {aqui salta a la funcion (en realidad no se si es una funcion o petodo. y salta a este codigo siguiente En un na UNIDAD01}

{...}

Código Delphi [-]
procedure UCerrarAbrirPG(DataSet: TDataSet; Sender : TForm);
var
   nombre, ErrorM : string;
begin
     ErrorM := '';
     nombre := DataSet.Name;
     if BaseDatosPG.InTransaction then {EN este lugar no entra y salta el error }
        begin
             try
                DataSet.Close;
             except
                on E: Exception do
                   UAbrirMensaje('Error al cerrar el componente '+nombre+'.'+#13+#10+'Mensaje : '+E.Message,ierror,sender);
             end; {try}
             try
                DataSet.Open;
             except
                on E: Exception do
                   UAbrirMensaje('Error al abrir el componente '+nombre+'.'+#13+#10+'Mensaje : '+E.Message,ierror,sender);
             end; {try}
        end {if}
     else
        begin
             try
               DataSet.Close;
             except
               on E: Exception do
                  UAbrirMensaje('Error al cerrar el componente '+nombre+'.'+#13+#10+'Mensaje : '+E.Message,ierror,sender);
             end; {try}
             IniciarTransaccionPG;
             try
                BaseDatosPG.StartTransaction(TDPG);
                DataSet.Open;
                BaseDatosPG.Commit(TDPG);
             except
                on E: Exception do
                   begin
                       BaseDatosPG.Rollback(TDPG);
                       UAbrirMensaje('Error al abrir el componente '+nombre+'.'+#13+#10+'Mensaje : '+E.Message,ierror,sender);
                   end; {on}
             end; {try}
        end; {else}
end;

Edito este mensaje para añadir las etiquetas [ delphi ].