por eso dije
"en este código en específico" donde las siguientes dos instrucciones:
showmessage(
'Clase: 'E.ClassName+
' - Mensaje:'+E.
Message);
raise;
//¿necesario?
sirven para prácticamente lo mismo.
de hecho, realmente creo que una secuencia
Código Delphi
[-]
try
...
except
showmessage('mi error');
end;
no debería usarse de esa manera. Para evitar esto, estan las clases de error (EDivByZero, EDBEngineError, EConvertError, etc, etc, etc).
En este caso en específico la propuse para conocer la clase de error que marca. Esto solo que sea en tiempo de ejecución, ya que si es en tiempo de diseño habría que hacer otra cosa.
En fin, yo sigo esperando a que Toro2186 no cuente que ha pasado con su problema.