123456789101112131415161718192021222324252627282930313233343536373839404142 |
- 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.
|