Ayuda con error

[JerS]

Bueno aunque mi pregunta fue un poco compleja amigo [ContraVeneno] yo la formulo por aqui porque se que me van a dar una respuesta mucho mas tecnica y mejor formulada a la que podria obtener en google, por otro lado el manejo de excepciones es muy util pero cuando tu sabes donde esta el error, lo que necesito es ubicar el error en las 5000 lineas de codigo, lo cual seria muy util un archivo log, lo que sucede es que es un modulo de entrada y salida que puede tener cientos de combinaciones y en realidad necesitaria guardar la hora exacta y en donde se esta abortando mi aplicacion , como comenta el amigo Lepe es uno de los errores mas dificil de detectar porque no te dice cual es el error por la pantalla

[danilo_candales]

Pusiste esta pregunta en el foro Varios, y quizás yo sea medio tonto, pero no me queda claro si el procedimiento es un stored procedure de base de datos o un Procedure de Delphi.
Pero no importa. Mi pregunta aplica para cualquiera sea el caso. Si son 5000 líneas porque mejor no lo partes en pedacitos, refactorizas. Y asi puedes controlar mejor la ejecución y vas ejecutando por partes y cuando salte el error tengas una idea mas clara de por donde. Y con ese log es hasta mas fácil cuando el codigo está en pedazos. A cada rutina le asignas un identificador y guardas en el log cada vez que se ejecute hora, usuario, IP, mac adress, no sé, cuantos valores creas puedas necesitar.

Dijo alguien por ahi, divide y vencerás.

Saludos.

[[Lepe]]

Cuando dices "procedimiento" no lo asocio con un "procedure de delphi", me parecería una auténtica locura, si es así, de verdad te compadezco .

Por cada mensaje a grabar en el log se debería:
- abrir el archivo
- escribir la línea de mensaje
- cerrar el archivo.

No uses el jvLog de la JVCL, es una patata.

Si el archivo log se mantiene abierto, al dar el error, se puede perder las últimas escrituras hechas (porque estén en cache).

Guardar la hora es lo de menos, es más.... ¿qué más te dá si el error fue a las 11:00 o a las 14:00? Lo que te interesa es saber qué desencadenó el error. Una de las formas es incluir excepciones dentro de esa rutina, haciéndolas saltar, así puedes identificarlo:

Reglas de oro:
- No dejes nunca un case sin else:

Código Delphi [-]
case contador of
0: ....
1: ...
else
  raise exception.CreateFmt('oops, "case del contador" no implementado para valor %d',[contador]);

Tampoco dejes un if sin else, si puede existir dicha opción:

Código Delphi [-]
 type MiPrograma = Class(Exception); 
// así diferencias las excepciones de la VCL con las tuyas propias.

 if a = 0 then
  ....
 else if a> 0 then
 ....
 else
     raise Miprograma.CreateFmt('oops, " a < 0 " no implementado para valor %d',[a]);

Es obvio que ahora mismo, es un engorro hacer todo esto para tí, pero ¡¡deberías seguir buenas prácticas de programación desde un principio!!

Saludos