Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.05.10;
Скачать: 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 вся ветка

Текущий архив: 2009.05.10;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.013 c
2-1238069200
dis12345
2009-03-26 15:06
2009.05.10
редактировать stringgrid


2-1237968996
Андрей Ал.
2009-03-25 11:16
2009.05.10
Сортировка в dbgrideh по алфавиту.


2-1238506162
Галинка
2009-03-31 17:29
2009.05.10
Где почитать про аггрегатные выборки


3-1220516205
Mike Kouzmine
2008-09-04 12:16
2009.05.10
Как работает AVG()


15-1236461409
Юрий
2009-03-08 00:30
2009.05.10
С днем рождения ! 8 марта 2009 воскресенье