Ошибка несоответствия типов

← →
***mikle*** (2008-03-22 17:41) [0]

Никак не могу понять, в чём ошибка... подскажите пожалуйста!
PPerson=^TPerson;

PContext=^TContext;

TPerson=Class
x,y:INTEGER;
cont:PContext;
END;

TContext=Class
person:PPerson;
next:PContext;
END;

TPersons=Class
first,last:PContext;
PROCEDURE AddPerson(person:PPerson);
PROCEDURE GetPeson(prev:PPerson);
END;

procedure TPersons.AddPerson(person: PPerson);
VAR
tec:PContext;
begin
(*код*)
tec.person:=person;
person.cont:=tec; {Incompatible types: "TContext" and "_CONTEXT"}
end;

← →
Джо © (2008-03-22 17:47) [1]

Вероятней всего используется PContext из модуля Windows.pas.

← →
***mikle*** (2008-03-22 17:50) [2]

Спасибо

NB: Очень удобна возможность сделать Cltl+Click на имени типа (в данному случае) и среда сразу откроет файл, где он объявлен.

Ошибка несоответствия типов Найти похожие ветки