ООП инкапсуляция

[albatros]

Пишу исследовательскую по ООП
Вопрос по директиве private

type
world=class(TObject)
numberspeople:integer;
end;
people=class(World)
private
name: string;
end;
student=class(people)
grant: boolean;// степендия
end;
var
 w: world;
 s: student;
 p: people;
 
begin
w:=world.create;
s:=student.create;
p:=people.create;
s.name:='Петя';//компялиция программы с этой строкой невозможна
p.name='Петя';
w.name:='Народы';//компялиция программы с этой строкой невозможна
readln;
end.

По идеи программа не должна компилироваться, а она компилируется.
Т.е. аттрибуты и методы класса определённые в разделе private
не доступны классам-родителям и дочерним классам.

[mihali4]

Да что вы говорите? А элементарно в хэлп заглянуть не пробовали?
Посмотрите все же "Visibility of class members". Полезно, знаете ли...

[s.Creator]

А она точно компилируется?

у меня сразу ругнулась на

p.name='Петя';

(отсутствует : )

потом

w.name:='Народы';//компялиция программы с этой строкой невозможна

Родительский класс не знает о методах детей.

Ну а с этим

s.name:='Петя';//компялиция программы с этой строкой невозможна

и

p.name:='Петя';

Все элементарно - в модуле где объявлен класс приватные свойства и методы видны всем, что можно почитать из справки, как правильно сказал mihali4