TURBO PASCAL

     Если ваша программа написана на Паскале, вы можете использо-
вать константы и записывать их  в  файле  модуля  или  включаемом
файле. С помощью констант вы можете записывать только комментарии
и директивы компилятора,  а компилятор может  работать  только  с
константами,  определенными  как  нетипизованное целое значение и
выражения длинного целого типа.

     (**********************************************************
     *        Определения констант для программы TDDEMO.       *
     ***********************************************************)

     unit TddemoConst;

     interface

     const
        LINE = 1;
        ELLIPSE = LINE + 1;
        RECTANGLE = LINE + 2;

        MID_QUIT = 100;
        MID_LINE = 201;
        MID_ELLIPSE = MID_LINE + 1;
        MID_RECTANGLE = MID_LINE + 2;
        MID_THIN = 301;
        MID_REGULAR = MID_THIN + 1;
        MID_THICK = MID_TRHIN + 2;
     implementation

     end.

     Кроме комментариев и директив компилятора в секции interface
допускаются только  определения  констант.  Секция implementation
должна быть пустой.  За ключевым словом end может  следовать  все
что  угодно,  но  Пакет разработчика ресурсов будет это игнориро-
вать.

     Как показано  в следующем примере, включаемый файл может со-
держать только описания констант,  комментарии и директивы компи-
лятора:

     (**********************************************************
     *        Определения констант для программы TDDEMO.       *
     ***********************************************************)

     const
        LINE = 1;
        ELLIPSE = LINE + 1;
        RECTANGLE = LINE + 2;

        MID_QUIT = 100;
        MID_LINE = 201;
        MID_ELLIPSE = MID_LINE + 1;
        MID_RECTANGLE = MID_LINE + 2;
        MID_THIN = 301;
        MID_REGULAR = MID_THIN + 1;
        MID_THICK = MID_TRHIN + 2;