嘿 这些问题要多踫到几回 概念就牢固了

它是这样的：程序代码里有一个主程序文件init.prg和程序文件abc.prg
init里面在#INCLUDE "global.h"之后，有几句代码

= PROGRAM_INIT()
IF GC_ERROR= INIT_0
   DO FORM MAIN
ENDIF

我不理解那个“=”是怎么回事？还有那个IF..

然后在abc.prg
proc Program_init
Do define_public
Do init_public
...
endproc

proc define_public

public X2
public GC
...
endproc

proc init_public

GC=''
endproc

所以应该是变量太多了，都写一起了吧。

说的既是。

在Init.PRG中，它这样写

= PROGRAM_INIT()            && 调用abc.PRG中的PROGRAM_INIT()函数，故在本行之前必须先有SET PROCEDURE TO abc，否则找不到PROGRAM_INIT()函数
 IF GC_ERROR= INIT_0        && GC_ERROR应是在DEFINE_PUBLIC()过程中声明的全局变量，INIT_0是在global.h中定义的常数
    DO FORM MAIN            && 启动主表单
 ENDIF

在abc.PRG中

PROCEDURE PROGRAM_INIT()     && 自定义函数，其动作是执行下面两个过程，一个声明全局变量，一个初始化全局变量的值，所以它在Init.PRG启动处执行
PROCEDURE DEFINE_PUBLIC()    && 这是一个自定义过程，它的作用是声明各种全局变量，其中有X2,GC，回头看上面，这个过程在DO MAIN之前执行
PROCEDURE INIT_PUBLIC()      && 也是一个自定义过程，其作用是将全局变量GC赋值为空字符串

-----------------------
结论：此人写程序有点啰嗦，似乎还不太熟练，很多多余的动作。不过逻辑上没有问题。程序的入口，必须要是从init.prg开始。

你的解释很清晰啊！那不啰嗦的写法应该是怎样呢？
不过运行的时候不知道为什么还是找不到X2和GC..

你是不是改动过MAIN表单中的代码，写了CLEAR ALL之类的语句？

木有

把报告说GC找不到那一行的代码前后10行给我看看

指向的是main的init事件里面的第一句
THISFORM.TITLE.VALUE = "A "+GC+" Program"
下面就是
        DO XXX WITH THISFORM
        DO...
        RETURN

main表单中有个叫title的控件是吧，那个控件的init事件有什么动作？如果这个事件没有动作，就查表单的Load事件中写了什么？
你铁定有个地方把全局变量从内存中清除了，自己不知道而已。