message d'erreur

Question

Bonjour , 

           J'ai un probl&#232;me , je voudrais afficher les erreures et la ligne de code ou l'erreure est g&#233;n&#233;rer , cela marche bien quand je le fais executer dans foxpro , mais quand je g&#233;n&#233;re un executable et le fait marcher ind&#233;pendament de foxpro , il ne l'affiche pas la ligne d'erreur. Comment faire afficher la ligne de code m&#234;me dans un executable ?

Ps j'utilise le code suivant :

STORE "" TO MSGERROR
MESSAGEBOX(MESSAGE(1)) 
MSGERROR = 'Line of code with error: ' + MESSAGE(1)+'Error number: ' + STR(ERROR( ))+'Error message: ' + MESSAGE( )
MESSAGEBOX(MSGERROR)

                                                                                     Merci d'avance

Mike Gagnon · Answer

Dans les notes dans le help tu trouvera ceci pour MESSAGE()



Note |
----

MESSAGE(1) is not available in the runtime.



Donc pour toi ceci ne fonctionnera pas.





Utilise plutot ceci



On error do gErrHlr with error(), message(), line(), message(1)

Function gErrHlr( tnErr, tcErr, tnLin, tcLin )

    Local ;

        lcErrMsg

    lcErrMsg = "Error #" + transform( tnErr) + ": " + tcErr + chr(13) ;

        + "Line #" + transform( tnLin ) + ": " + tcLin

    Messagebox( lcErrMsg, 0, "Global Error Handler" )

    Return


Mike Gagnon

jee0404 · Answer

merci mike pour ta r&#233;ponse, mais je n'arrive pas pareil ,&#224; faire afficher la ligne de code en run time , je sais maintenant que le message(1) ,n'est pas avalable en run-time , mais il aurais tu un autre moyen ?

Message d'erreur

2 réponses

Votre réponse

Discussions similaires