unit ConditionalDefines; interface type TModuleType = (mtAll, mtCompile); var {$IFDEF _mGuangDong} _IsGuangDong: Boolean = True; {$ELSE} _IsGuangDong: Boolean = False; {$ENDIF} {$IFDEF _mCompile} _ModuleType: TModuleType = mtCompile; {$ELSE} _ModuleType: TModuleType = mtAll; {$ENDIF} {$IFDEF _mEncrypt} _IsEncrypt: Boolean = True; {$ELSE} _IsEncrypt: Boolean = False; {$ENDIF} {$IFDEF _mDebugView} _IsDebugView: Boolean = True; {$ELSE} _IsDebugView: Boolean = False; {$ENDIF} // 使用G_IsCloud变量总是出现编译问题 {$IFDEF _mCloud} _IsCloud: Boolean = True; {$ELSE} _IsCloud: Boolean = False; {$ENDIF} implementation end.