Язык: 
Русский
English
Константы указательных типов
При объявлении константы указательного типа обычно используется выражение базового адреса для определения значения указателя.
Если вы включаете расширенный синтаксис (с помощью директивы компилятора {$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;
См. также
Лекция №10.1: Адреса и указатели. Списочные структуры данных

 
 ::
      
 ::
      
 ::