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

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

ООП

начинающий96 ©   (2009-03-31 13:58:00) 

есть 2 класса, например:


TA = class
 private
   fs: Integer;
 public
   constructor Create;
 end;

 TB = class(TA)
 private
   procedure A;
 end;


Можно ли из класса TB обращаться к private-переменной класса TA.


{ TA }

constructor TA.Create;
begin
 fs := 7;
end;

{ TB }

procedure TB.A;
begin
 ShowMessageFmt('%d', [Self.fs]);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 TB.Create.A;
end;


---

начинающий96   (2009-03-31 14:06:00) [1]

Понятно, спасибо

---

@!!ex   (2009-03-31 14:05:00) [2]

Если они в одном модуле, то они friends со всеми вытекающими.

---

Наверх