Скачать: CL | DM;

ООП   Найти похожие ветки 

← →
начинающий96   (2009-03-31 13:58) [0]

есть 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;


---

← →
@!!ex ©   (2009-03-31 14:05) [1]

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

---

← →
начинающий96   (2009-03-31 14:06) [2]

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.007 c