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;
Запись A ссылается на B, B ссылается на A, как разрулить? |