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