Como Capturar Nombre u Origen en Control de Errores

[ginasil]

oye muchas gracias... funciona perfecto!!...

[Angel.Matilla]

Esta viendo el código que habéis puesto en este hilo. Aunque es para Delphi es fácil adaptarlo a Builder, que es lo que me hace falta. Me suge una duda: ¿Existe la posibilidad de poder capturar además del nombre del componente que genera la excepción el del formulario donde se ubica?

Voy un poco más allá: Hay casos en los que la excepción no se genera en un componente concreto, como puede ser una fución llamada; ¿como podría capturar la línea en la que se produce el error?

[Neftali [Germán.Estévez]]

Empezado por Angel.Matilla

¿Existe la posibilidad de poder capturar además del nombre del componente que genera la excepción el del formulario donde se ubica?

Se podría probar para el nombre del componente y del form, algo como:
(no lo he compilado, te lo pongo de memoria, pero la idea es esa)

Código Delphi [-]
// esto...
Str := Sender.Name;

// o esto...
if (Sender is TComponent) then
  Str := TComponent(Sender).Name;
end;

// Para el formulario puedes probar...
if Assigned(Sender.Owner)) then begin
  if (Sender.Owner is TForm) Then begin
    Str := TForm(Sender.Owner).Name;
  end;
end;

Algo similar habrá que hacer para los frames, si es que los usas.

Empezado por Angel.Matilla

Voy un poco más allá: Hay casos en los que la excepción no se genera en un componente concreto, como puede ser una fución llamada; ¿como podría capturar la línea en la que se produce el error?

Esto es un poco más complicado, pero puedes buscar ayuda sobre la unit jclDebug.
Pertenece a las Jedi y te permite ampliar las opciones de debug, con cosas que se acercan a lo que necesitas.

Otras opciones que puedes investigar son: madExcept, EurekaLog o similares.

[Angel.Matilla]

Muchas gracias por la sugerencia. Probaré y ya os diré como va.