Como Capturar Nombre u Origen en Control de Errores

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

En lugar del.:

Código Delphi [-]
if sender.ClassName = 'TTimer' then
b:= TTimer(sender).Name;
if sender.ClassName = 'TStringGrid' then
b:= TStringGrid(sender).Name;
if sender.ClassName = 'TCheckListBox' then
b:= TCheckListBox(sender).Name;
if sender.ClassName = 'TSpeedButton' then
b:= TSpeedButton(sender).Name;
...

Yo colocaría algo así; Te evitas tener que hacer todos los IF y aprovechas que todos los componentes derivan de TComponente que ya tienes Name y ClassName:

Código Delphi [-]

 ** Antes deberías comprobar si Sender está asignado, no sea que llegue a nil...

  if (Sender is TComponent) then begin
    _name := TComponent(Sender).Name;
    _className := TComponent(Sender).ClassName;
   end
  else begin
    // No es un componente
    ....
  end;

Por lo demás eso debvería devolver el nombre del componente que genera la excepción correctamente.

De todas forma con el código que tú tienes yo inicializaría la "b" con otro valor para ver si realmente no te lo está almacenando y usuaría ELSEIF:

Código Delphi [-]
b:='';    
if sender.ClassName = 'TTimer' then begin
  b:= TTimer(sender).Name;
end
else if sender.ClassName = 'TStringGrid' then begin
  b:= TStringGrid(sender).Name;
end
else if sender.ClassName = 'TCheckListBox' then begin
  b:= TCheckListBox(sender).Name;
end
else if sender.ClassName = 'TSpeedButton' then begin
  b:= TSpeedButton(sender).Name;[FONT=verdana,geneva,lucida,'lucida grande',arial,helvetica,sans-serif]
end
else begin
  b := 'ninguno de los anteriores'.
end;[/font]

Por que puede ser que esté pasando por el IF, pero no sea ninguno de los que tienes codificados. La otra opción (que ya te he comentado) es que cambies toda esa estructura por la comentada arriba, para que funcione con cualquier Sender que derive de TComponent.

[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.