Re: TZF - Network Program ... try/finally

I got this answer to my question in another
forum ... it worked great, in case anyone
else needs to know this.  You must 
use TzCommon;

___________________________________

The Topaz behaviour is a bit non-standard.
You have to call the function

TzCommon.SetTzException(true);

to enable 'normal' Delphi exception handling
with Topaz routines, otherwise a Topaz error
message is displayed and the program exits
when an error occurs.
_____________________________________







In a message dated 06/10/2003 9:25:41 PM Eastern Standard Time, 
[email protected] writes:


> In developing a network program, I am trying to use
> a  "try/finally"  structure to allow the physical deletion
> of records (PACK).  I am getting a File Sharing error
> ( Error # 32 ) when I try to pack and there are two users
> in the system.  My Try/Finally looks like this:
> 
> 
>     try   // this will create an exception if another user is using the 
> system
>       DM.DBF_Courts.Active:=False;
>       DM.DBF_Courts.Exclusive:=True;
>       DM.DBF_Courts.Active:=True;
>       DM.DBF_Courts.Pack;
>     finally   // but I thought this would "clear" the exception
>       DM.DBF_Courts.Active:=False;
>       DM.DBF_Courts.Exclusive:=False;
>       DM.DBF_Courts.Open;
>     end;
> 

> 

==^================================================================
This email was sent to: [email protected]

EASY UNSUBSCRIBE click here: http://topica.com/u/?clvXPN.a5kvff.Z2NsZHQt
Or send an email to: [email protected]

TOPICA - Start your own email discussion group. FREE!
http://www.topica.com/partner/tag02/create/index2.html
==^================================================================