Galera boa tarde
Coloquei no meu projeto a seguinte estrutura para que possa guardar o erro
ocorrido em um banco de dados.
with qrygravaerro do
begin
ParamByName('iderrosistema').AsInteger := codigo;
ParamByName('idlocalerrosistema').AsInteger :=
StrToInt(DmPrincipal.local);
ParamByName('datahora').AsDateTime := Now;
ParamByName('idusuario').AsInteger :=
DmPrincipal.qryusuarioidusuario.AsInteger;
ParamByName('idlocalusuario').AsInteger :=
DmPrincipal.qryusuarioidlocal.AsInteger;
ParamByName('formulario').AsString := Screen.ActiveForm.Name;
ParamByName('controle').AsString := Screen.ActiveControl.Name;
ParamByName('erro').AsString := e.Message;
ExecSQL;
end;
Nisso consigo o nome do formulario e componente no qual ocorreu o erro.
Alguem sabe como conseguir em qual linha do codigo o erro aconteceu?