Наследование классов

← →
Кролик (2002-09-08 10:47) [0]

Как написать обьявление классов, чтобы потом можно было обращаться :
MyClass1.MyClass2.MyClass3.Property1:=18;

← →
MBo © (2002-09-08 11:05) [1]

TMyClass3=
...
property
Property1:TSomeType read ...write..

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

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

← →
Кролик (2002-09-08 11:23) [2]

Напишите обьявления функций полностью - без сокращений, А то у меня не получается!

← →
Кролик (2002-09-08 11:30) [3]

← →
Poirot © (2002-09-08 11:35) [4]

таки там надо добавить!!!
MyClassX:TMyClassX read FMyClassX write FMyClassX;
Насчёт цкшеу туда надо метод засунуть помоему!!!
А если очень туго, то просмотри книжку заново по написанию компонентов главу... там это описано очень популярно!!!

← →
Юрий Зотов © (2002-09-08 11:42) [5]

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;

Ошибочка вкралась.
Не

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

а

TMyClass2 = class(TObject)
private
FMyClass3: TMyClass3;

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

просто для корректности: сие есть не наследование, а аггрегирования (или аггрегация - как там правильно по-русски то?) :-)

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

Наследование классов Найти похожие ветки