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

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

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

Классы

Новичек. © (2002-09-30 15:33:00)
Кто может - помогите хоть раз нормально разобраться на примере.
Надо написать наследование классов, чтобы вызывать свойство
MyClass1.MyClass2.Property1:=Value;

Напишите пожалуйста кодом, тк общие фразы я уже наслушался.

Демонов Е.В. (2002-09-30 15:59:00) [1]
MyClass1.MyClass2.Pro1:SomeType

MyClass1=class(....)
function GetMPro1:SomeType;
procedure SetMPro1(Value:SomeType);
property MPro1:SomeType read GetMPro1 WRite SetMPro1;
end;

function GetMPro1:SomeType;
begin
result:=MyClass2.Pro1;
end;

procedure SetMPro1(Value:SomeType);
begin
MyClass2.Pro1:=Value;
end;

Может ты об этом говоришь?

qube (2002-09-30 15:58:00) [2]
Что объяснить, если ты вопрос не задал толком?

MBo (2002-09-30 15:58:00) [3]
Я, вероятно, могу объяснить, только не знаю, что именно.

Новичек. (2002-09-30 15:55:00) [4]
Ты обьяснить можешь?

MBo (2002-09-30 15:52:00) [5]
>Новичек
Пока что твой вопрос выглядит примерно так -
"А как бы мне сделать что-то хорошее?"

Видимо, не наслушался еще общих фраз и книжек не читал, раз абсолютно не можешь задачу сформулировать

Новичек. (2002-09-30 15:49:00) [6]
Ладно, как мне сделать такое обращение, чтобы все было структурировано и понятно?

gek (2002-09-30 15:48:00) [7]
См MBo © (30.09.02 15:39)
Тебе предельно подробно ответили

qube (2002-09-30 15:46:00) [8]
Что организовать? И где тут наследование?

Новичек. (2002-09-30 15:44:00) [9]
Дело в том, что мне нужно

MyClass1.MyClass2.Pro1
MyClass1.MyClass3.Pro4
MyClass1.MyClass4.Pro17

А как это огранизовать - вот вопрос!

MBo (2002-09-30 15:39:00) [10]
TMyClass2=class()
published
property Prop1:Integer;
end;
Ctrl-Shift-C дополнит объявление

TMyClass1=class()
property MyClass2:TMyClass2;
end;
аналогично

pasha_golub (2002-09-30 15:38:00) [11]
Я не совсем уразумел вопрос, но по сути мне здается, что надо писать inherited.

gek (2002-09-30 15:37:00) [12]
Ну, если MyClass2 наследник MyClass1, то зачем писать
MyClass1.MyClass2.Property1:=Value;
надо MyClass2.Property1:=Value

Наверх

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