respondo....
haver el control de la Excepción DaoConnection està dentro de la Classe GINRole.
Type EGINRole = Class ( Exception );
type
TGINRole = class
...
..
..
Procedure kaka();
begin
try
DaoConnection.InsertCliente(...); //Aqui se produce la excepción.
Except
on E: EDaoConnection do
raise EGINRole.Create('TGINRole: Error '+ E.Message);
end;
end;
end;
y en el Form:
try
Except
on E: EGINRole do
ShowMessage(E.Message);
end;
|