Текущий архив: 2008.04.20;
Скачать: CL | DM;

Вниз

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

← →
***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]

Спасибо

---

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2008.04.20;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.015 c