Question

我正在尝试为我尝试了SET DEFAULT＆amp;的应用设置VFP环境。 SET PATH TO我也尝试将环境管理器用于prodject的所有目录但是当我运行程序时我必须使用locate对话框来查找程序所需的文件，主程序设置我认为的环境，代码看起来像这样

 CLOSE DATABASES ALL
 CLOSE TABLE ALL
 SET SYSMENU OFF
 SET STATUS OFF
 SET STATUS BAR OFF
 _VFP.autoyield = .F.
 IF FILE("c:\pb1\photobooth\photographer.exe")
    SET DEFAULT TO c:\pb1\photobooth
 ELSE
    ON ERROR DO FORM FORMS\errorfrm WITH ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( )
 ENDIF
 SET PATH TO ..\CommandBars\Redistr,..\wwclient\,..\sfquery,..\classes,..\wwclient\classes, c:\sdt\sdt\source,c:\sdt\sdt\,..\xfrx,..\xfrx\xfrxlib
 SET CLASSLIB TO (HOME()+"ffc\_reportlistener")
 SET PROCEDURE TO PROGS\procfile ADDITIVE
 SET PROCEDURE TO ..\xfrx\utilityreportlistener.prg ADDITIVE
 SET PROCEDURE TO wwUtils ADDITIVE
 SET PROCEDURE TO wwEval ADDITIVE
 SET PROCEDURE TO CodeBlockClass ADDITIVE <-----
 SET CLASSLIB TO wwIPStuff ADDITIVE
 SET CLASSLIB TO wwXML ADDITIVE
 SET PROCEDURE TO wwHTTP ADDITIVE
 SET PROCEDURE TO WWPOP3 ADDITIVE
 SET STATUS BAR ON
 SET DATE BRITISH
 SET DELETED ON
 SET SAFETY OFF
 SET MULTILOCKS ON
 ON KEY LABEL SHIFT+F1 gl_diag=!gl_diag

我正在寻找一种方法来运行没有错误的程序，以便我可以找出为什么应用程序没有将所有数据解析为XML文件Tamar提供了调试的goog指南我只需要运行程序到生成XML的要点。错误从箭头

指示的点开始

Answer 1

如果主程序正在设置环境，则可能会因不使用ADDITIVE关键字而覆盖某些设置。在您的示例中，看起来这是SET PATH和SET CLASSLIB的情况。

示例一 - 没有ADDITIVE

*--- Main program
SET PATH TO "C:\VFP9"

*--- Debug setup
SET PATH TO "D:\Debug"
?set('Path')

Output: D:\Debug

示例二 - 使用ADDITIVE

*--- Main program
SET PATH TO "C:\VFP9"

*--- Debug setup
SET PATH TO "D:\Debug" ADDITIVE
?set('Path')

Output: D:\Debug;C:\VFP9

设置VFP IDE环境以进行调试

1 个答案: