Константы указательных типов

При объявлении константы указательного типа обычно используется выражение базового адреса для определения значения указателя.

Если вы включаете расширенный синтаксис (с помощью директивы компилятора {$X+}), то типизированная константа типа PChar может быть инициализирована значением строковой константы.

Пример
Type Direction = (Left, Right, Up, Down);
         StringPtr = ^String;
           NodePtr = ^Node;
              Node = Record
                Next : NodePtr;
              Symbol : StringPtr;
               Value : Direction;
                     End;
 
    Const S1 : String[4] = 'DOWN';
          S2 : String[2] = 'UP';
          S3 : String[5] = 'RIGHT';
          S4 : String[4] = 'LEFT';
          N1 : Node = (Next : NIL; Symbol : @S1; Value : Down);
          N2 : Node = (Next : @N1; Symbol : @S2; Value : Up);
          N3 : Node = (Next : @N2; Symbol : @S3; Value : Right);
          N4 : Node = (Next : @N3; Symbol : @S4; Value : Left);
 DirectTable : NodePtr = @N4;