8 respuestas en este tema

[FELIX]

saludo nuevamente a todo el foro delphi

tengo problemas al cerrar un form que se llama frm_datosEgreso
al dar click en el  AdvGlowButton Cancelar  me sale un error

Access violation at address 004AD66E in module 'Historia_clinica.exe '. read of address 000002F4


el codigo que tengo es

delphi

if Frm.ModalResult = mrOk then
       begin
          if ((Frm.DBLookupComboBox1.KeyValue <> null)OR(Frm.DBLookupComboBox3.KeyValue <> null)OR(Frm.DBLookupComboBox4.KeyValue <> null)OR(Frm.DBLookupComboBox5.KeyValue <> null)OR(Frm.q_DxSalida.Fields[0].AsInteger <> 0)) then BEGIN
                RegActuales.MotivoEgreso := Frm.DBLookupComboBox1.KeyValue ;                    // Frm.q_Motivo.Fields[0].AsInteger;
                RegActuales.DestinoEgreso:= Frm.DBLookupComboBox3.KeyValue ;              //Frm.q_Destino.Fields[0].AsInteger;
                RegActuales.EstadoEgreso := Frm.DBLookupComboBox4.KeyValue;             //Frm.q_EstadoSalida.Fields[0].AsInteger;
                RegActuales.Destino3047Egreso := Frm.DBLookupComboBox5.KeyValue;     //Frm.q_Destino3047.Fields[0].AsInteger;
                RegActuales.DxEgreso:= Frm.q_DxSalida.Fields[0].AsInteger;      // lo Comentado valida los registros por buscadores
                Result := True;
          end;
       raise Exception.Create('debe llenar todos los valores');
       end;
 if frm.ModalResult = mrCancel then
    FrmDatosEgreso.Close;
 finally
    Frm.Free;
    Fdm.Free;
    end;
end;

[Wilson]

FELIX,  si el usuario cancela lo lógico es que ese botón no haga nada (si acaso cerrar los datasets asociados a los combos, aunque  no conozco la lógica de tu programa), por lo tanto quita ese código asociado al evento, solo coloca la propiedad ModalResult del botón a mrCancel y listo.

Saludos

[FELIX]

el boton tiene los datos que me escribiste, pero al dar clic el boton no hace absolutamene nada me muestra el form nuevamente pero no lo cierra

[Fenareth]

El error está haciendo referencia a que estás intentando tener acceso a un objeto que no existe... yo creo que el error viene en las líneas de Frm.Free o Fdm.Free...
Coméntalas y nos platicas va ? 


Saludox !

[FELIX]

NOO  SALE EL MISMO ERROR CON LAS LINEAS COMENTADAS

[Fenareth]

Y si recorres el programa línea por línea en ejecución para que puedas darte exactamente cuenta en dónde te brinca el access violation ???


Insisto, ese error hace referencia a que quieres manipular un objeto que no existe...


Saludox !

[FELIX]

tenia toda la razon habia un evento que me hacia generar esa falla.

gracias a todos por la colaboracion.


saludos         
 

[Fenareth]

tenia toda la razon habia un evento que me hacia generar esa falla.

gracias a todos por la colaboracion.


saludos         
 

No seas malo cuentanos en dónde estaba tu error, puede que le sirva a alguien más 


Saludox !

[FELIX]

primero le habian creado un alias al form ya no se llama frm_datos egreso sino Frm
en otro formulario que se llama frm_consulta urgencia tenian una funcion donde lo abrian coloque una variable boolean en un IF