Bringing a Eureka 4 project up to Eureka 6

[Tony Jackson]

Hi,

I have an old project that was compiled having Eureka 4.x. It had the following:
====
procedure MyNotify(ExcRecord: TEurekaExceptionRecord; var Handled: boolean);
begin
if (ExcRecord.ExceptionObject is Exception) then
ExcRecord.CurrentModuleOptions.ShowExceptionDialog := DefRec.IEDEmployee; { do not show dialog }
end;
====
I am recompiling the project using Eureka and I get "ShowExceptionDialog" as an "undeclared identifier".

Okay, what do I need to do to correct this situation.

Thanks.

Tony

[admin]

Hi Tony,

as you can see here: http://www.eurekalog.com/docs/old4_5_xversion.html

and here:
http://www.eurekalog.com/docs/old5_xversion.html

now you should use:



uses
ECore;

...

procedure MyNotify(ExcRecord: TEurekaExceptionRecord; var Handled: boolean);
begin
if (ExcRecord.ExceptionObject is Exception) then ExcRecord.CurrentModuleOptions.ExceptionDialogType := edtNone;
end;

[Tony Jackson]

Thanks.

"admin" <support@eurekalog.com> wrote in message
news:81986cdebdb5a5c645b71f487feab667@nntp-gateway.com...
>
> Hi Tony,
>
> as you can see here:
> http://www.eurekalog.com/docs/old4_5_xversion.html
>
> and here:
> http://www.eurekalog.com/docs/old5_xversion.html
>
> now you should use:
>
>
> Code:
> --------------------
>
>
> uses
> ECore;
>
> ...
>
> procedure MyNotify(ExcRecord: TEurekaExceptionRecord; var Handled:
> boolean);
> begin
> if (ExcRecord.ExceptionObject is Exception) then
> ExcRecord.CurrentModuleOptions.ExceptionDialogType := edtNone;
> end;
>
>
> --------------------
>
>
> --
> admin
>
> Best regards...
>
> Fabio Dell'Aria.
> ------------------------------------------------------------------------
> admin's Profile: http://news.eurekalog.com/member.php?userid=1
> View this thread: http://news.eurekalog.com/showthread.php?t=1869
>

[admin]

Hi,

you're welcome! :)