Форум: "Основная";
Текущий архив: 2002.09.19;
Скачать: [xml.tar.bz2];
ВнизНаследование классов Найти похожие ветки
← →
Кролик (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;
← →
Юрий Зотов (2002-09-08 11:53) [6]Ошибочка вкралась.
Не
TMyClass2 = class(TObject)
private
F TMyClass3: TMyClass3;
а
TMyClass2 = class(TObject)
private
FMyClass3: TMyClass3;
И в TMyClass1 то же самое. Sorry за неаккуратность.
← →
Ketmar (2002-09-08 13:32) [7]просто для корректности: сие есть не наследование, а аггрегирования (или аггрегация - как там правильно по-русски то?) :-)
Satanas Nobiscum! 08-Sep-XXXVII A.S.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.09.19;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c