|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Получить переменную класса
Здравствуйте. Извиняюсь сразу, за не очень информативный заголовок темы, но я не могу корректно сформулировать, поэтому попытаюсь объяснить на пальцах, в виде задачи.
Есть 2 класса, "отец" и "сын", у отца есть переменная "деньги", и свойсво "сын". У "сына" есть процедура "купить игрушку". ВОПРОС: Как сделать так, чтобы процедура "купить игрушку" у "сына", могла брать "деньги" у отца, т.е. получить доступ к переменной "деньги" Код:
Type TSon = class(TObject) private function BuyToy(cost:integer) : string; public property Buy[cost:integer]: string read BuyToy; end; type TFather = class(TObject) private Money:integer; Son1:TSon; public property Son : TSon read Son1; end; function TSon.BuyToy(cost:integer):string; begin {Тут нужно получить доступ к переменной Money} Money:=Money – cost; result:=’Паравозик’; end; Не вдаваясь в подробности точного синтаксиса данного когда и его логики, хотелось бы получить ответ на поставленный вопрос. Заранее спасибо. |
#2
|
|||
|
|||
Вообще, в таких случаях просто у сына делается ссылка на отца и через эту ссылку и производится доступ.
|
#3
|
|||
|
|||
Спасибо за ответ, а можно по конкретнее, как сделать такую ссылку?
|