Совместимость типов с разными названиями.

[Вадим Буренков]

У меня в проэкте импользуется много разных модулей связаных с физикой и математикой. И у каждого модуля свой тип точки: у одного:

type
  zglPPoint2D = ^zglTPoint2D;
  zglTPoint2D = record
    x, y : Single;
end;

у другого:

Float = Single;
cpFloat = Float;
  PcpVect = ^cpVect;
  cpVect = record
    x             : cpFloat;
    y             : cpFloat;
  end;

Впринципе типы zglTPoint2D и cpVect одинакоыве, они включают X,Y:single, но при попытке использовать cpVect в процедуре для zglTPoint2D возникает ошибка

[Error] GR_Levels.pas(371): Incompatible types: 'zglTPoint2D' and 'cpVect'

Как указать компилятору чтоб он не считал это за ошибку?

[eoln]

type zglTPoint2D = cpVect;

[Alex Cones]

Создайте функу-конвертор типа Blablabla=Convert(Vect : cpVect) : zglTPoint2D;
А в ней танцуйте с битами.

[Вадим Буренков]

type zglTPoint2D = cpVect;

Я знаю что так можно, просто интересовался можно ли обойти это ограничение. Например несовместимость PcpVect и cpVect решается знаком "@" перед переменной.

функу-конвертор

Я уже создал:

function cpVectTozglPoint(cpv:cpVect):zglTPoint2D;
begin
result.x:=cpv.x;
result.y:=cpv.y;
end;

function zglPointTocpVect(zglP:zglTPoint2D):cpVect;
begin
result.x:=zglP.x;
result.y:=zglP.y;
end;

Вобщем спасибо за ответы.