Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Наследование классов [D5]

Кролик © (2002-09-08 10:47:00)
Как написать обьявление классов, чтобы потом можно было обращаться :
MyClass1.MyClass2.MyClass3.Property1:=18;

Ketmar (2002-09-08 13:32:00) [1]
просто для корректности: сие есть не наследование, а аггрегирования (или аггрегация - как там правильно по-русски то?) :-)

Satanas Nobiscum! 08-Sep-XXXVII A.S.

Юрий Зотов (2002-09-08 11:53:00) [2]
Ошибочка вкралась.
Не

TMyClass2 = class(TObject)
private
F TMyClass3: TMyClass3;

а

TMyClass2 = class(TObject)
private
FMyClass3: TMyClass3;

И в TMyClass1 то же самое. Sorry за неаккуратность.

Юрий Зотов (2002-09-08 11:42:00) [3]
TMyClass3 = class(TObject)
private
FProperty1: integer;
public
property Property1: integer read FProperty1 write FProperty1;
end;

TMyClass2 = class(TObject)
private
FTMyClass3: TMyClass3;
public
constructor Create;
destructor Destroy; override;
property MyClass3: TMyClass3 read FMyClass3;
end;

TMyClass1 = class(TObject)
private
FTMyClass2: TMyClass2;
public
constructor Create;
destructor Destroy; override;
property MyClass2: TMyClass2 read FMyClass2;
end;

constructor TMyClass2.Create;
begin
inherited;
FMyClass3 := TMyClass3.Create;
end;

destructor TMyClass2.Destroy; override;
begin
FMyClass3.Free;
inherited;
end;

constructor TMyClass1.Create;
begin
inherited;
FMyClass2 := TMyClass2.Create;
end;

destructor TMyClass1.Destroy; override;
begin
FMyClass2.Free;
inherited;
end;

Poirot (2002-09-08 11:35:00) [4]
таки там надо добавить!!!
MyClassX:TMyClassX read FMyClassX write FMyClassX;
Насчёт цкшеу туда надо метод засунуть помоему!!!
А если очень туго, то просмотри книжку заново по написанию компонентов главу... там это описано очень популярно!!!

Кролик (2002-09-08 11:30:00) [5]
?

Кролик (2002-09-08 11:23:00) [6]
Напишите обьявления функций полностью - без сокращений, А то у меня не получается!

MBo (2002-09-08 11:05:00) [7]
TMyClass3=
...
property
Property1:TSomeType read ...write..

TMyClass2=
...
property
MYClass3:TMyClass2 read ...write..

TMyClass1=
...
property
MYClass2:TMyClass2 read ...write..

Наверх

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