Странно, что только сейчас это стало проблемой.
type
PPoint = ^TPoint;
PLink = ^TLink; // Undeclared identifier: TLink;
TPoint = record
x,y: integer;
border: boolean;
lnk: array [0..7] of PLink;
end;
type TLink = record // Identifier redeclared: TLink;
p1,p2: PPoint;
end;
typeОпережающие описания допустимы только в пределах в одной секции Type...
PPoint = ^TPoint;
PLink = ^TLink; // Undeclared identifier: TLink;
TPoint = record
x,y: integer;
border: boolean;
lnk: array [0..7] of PLink;
end;
(*type*) TLink = record // Ok
p1,p2: PPoint;
end;
Всё, я понял, почему раньше такой проблемы не возникало.
Это у меня с недавних пор (после знакомства с другим языком) пошла привычка перед каждым типом писать type, перед каждой константой const итд.