Главная страница
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.011 c
2-1237911598
Zheksonz
2009-03-24 19:19
2009.05.10
Как спрятать вывод на консоль?


2-1238514525
Б
2009-03-31 19:48
2009.05.10
Как пользоваться GetKeyNameText?


10-1156333737
Bnd
2006-08-23 15:48
2009.05.10
компонент prOpcKit


3-1220523952
Drowsy
2008-09-04 14:25
2009.05.10
Constraint, Transaction, Exception


2-1235855215
Индеец
2009-03-01 00:06
2009.05.10
Использование Ansistring в D2009 в packed record