| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

***mikle*** ©   (2008-03-22 17:41:00) 

Никак не могу понять, в чём ошибка... подскажите пожалуйста!  
 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:52:00) [1]

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

---

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

Спасибо

---

Джо   (2008-03-22 17:47:00) [3]

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

---

Наверх