Галактика в вопросах и ответах

Код: Выделить всё

const
mИмяМоейКонстанты = cogettune('Значение необходимой настройки');
end;

Код: Выделить всё

ObjInterface ObjConstKeeper
  property myConst1 : comp read;
 .......
end;

VipInterface  ConstKeeper implements ObjConstKeeper;

Interace ConstKeeper
property ObjConstKeeper.myConst1 : comp read coGetTune('MY_TUNE');
...
end; 

файл ConstKeeper.var
pi_constKeeper: ConstKeeper; 

где-то в коде :
#include ConstKeeper.vih
.....
var
#include ConstKeeper.var
...
  if (pi_constKeeper.myConst1 != 0) { .... }
...

Код: Выделить всё

VipInterface  ConstKeeper;
public:
  static myConst1: comp;
...
end;

Где-то в коде:
#include ConstKeeper.vih

if (ConstKeeper::myConst1 != 0) { .... }

Код: Выделить всё

 if ( myConst1 = 777h ) { ... }

Код: Выделить всё

Handler with replace ConstKeeper_RegisterGlobalIfc on ExtensionPoint epAppInit
Action
{
  RegisterGlobalIfc('MY_COMP::ConstKeeper');
  Result := TRUE;
}

Код: Выделить всё

global My_Comp::ConstKeeper;

Код: Выделить всё

#define myConst1 coGetTune('MY_TUNE') 
...

Код: Выделить всё

#define nRecGrNal cogettune('МояНастройка');
//константы в проекте
const
mtcnRecGrNal = #nRecGrNal;
end;