Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Check for Exclusive Open?
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00741115
Message ID:
00752368
Vues:
33
>My code looks like yours (I think), I am setting up a textlog on Database
>Open. I get an error "TRY/CATCH/FINALLY/ENDTRY mismatch or error". What did I miss?
>
>
>	PROCEDURE dbc_OpenData(cDatabaseName, lExclusive, lNoupdate, lValidate)
>	*Immediately after DBC is opened.
>		Public xxxDbc as Exception
>		Try
>			pubLogName = Alltrim(pubLogName)
>		Catch  to xxxDbc
>			If ( xxxDbc.ErrorNo == 12 )	&& pubLogName not set
>			? xxxDbc.Message
>			? xxxDbc.LineNo
>			? xxxDbc.ErrorNo
>			Public pubLogName = LOGNAMEPREFIX +"001.txt"
>		Finally
>		EndTry
>	ENDPROC
>
Leaving aside the actual problem, which you found yourself, I don't see this as a case for using TRY/CATCH. I think it would be clearer to write:
IF EMPTY(pubLogName)
   PUBLIC pubLogName
   pubLogName = LOGNAMEPREFIX + "001.txt"
ENDif
pubLogName = ALLTRIM(pubLogName)
My blog
My consulting page
My home page

Member of the Trim Your Auto-Quote Campaign!
What's another word for thesaurus?
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform