Problema con las Excepciones y OO
Estoy haciendo una aplicacion en 3 capas con Delphi. Por cada clase que me estoy creando en Delphi me creo tamien una clase Excepción para ella, PARA QUE OS ACLAREIS:
Unit DaoConnection:
Type EDaoConnection = Class ( Exception );
Type TDaoConnection = Class
.... atributos, metodos, properties...
end;
Unit GINRole
Type EGINRole = Class ( Exception );
type TGINRole = class
.... atributos, metodos, properties...
end;
Bien pues lo que me esta pasando es lo siguiente: kuando DaoConnection genera una excepción del tipo EDaoConnection ( EDaoConnection.Create(message) ), la Clase GINRole tiene esto:
try
.....
Except
on E: EDaoConnection do
raise EGINRole.Create('TGINRole: Error '+ E.Message);
end;
//Cuando se lanza una excepción DaoConnection, GINRole la controla i lanza una nueva suya (EGINRole) con el mensaje de la otra. PERO ES QUE ME PETA! da un error de memoria! por que? Alguien me puede ayudar?
HELP ME!
|