Здесь кроется небольшая хитрость: получение эквивалентной функциональности с помощью классового метода. Просто объявите NodeCount как регулярную типизированную константу в секции implementation вашего файла.
type
TNode = class public NodeCount : Integer = 0; {ЭТО НЕ ДОПУСКАЕТСЯ} constructor Create; Class Function GetNodeCount : word; { другой необходимый код } end; implementation const
NodeCount : word = 0;
TNode.Create; begin inherited Create; Inc(NodeCount); end;
Function TNode.GetNodeCount : word; begin result := NodeCount; end;
