设置用于调试的 VFP IDE 环境

Question

我正在尝试为我尝试设置默认值和设置路径的应用程序设置 VFP 环境我还尝试将环境管理器用于项目的所有目录但是当我运行程序时我必须使用定位对话框查找程序需要的文件，主程序设置我认为的环境，代码如下所示

 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 似乎就是这种情况。

示例一 - 不含添加剂

*--- 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