Язык:
Русский
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: Адреса и указатели. Списочные структуры данных