Классы

← →
Новичек. (2002-09-30 15:33) [0]

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

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

← →
gek © (2002-09-30 15:37) [1]

Ну, если MyClass2 наследник MyClass1, то зачем писать
MyClass1.MyClass2.Property1:=Value;
надо MyClass2.Property1:=Value

← →
pasha_golub © (2002-09-30 15:38) [2]

Я не совсем уразумел вопрос, но по сути мне здается, что надо писать inherited.

← →
MBo © (2002-09-30 15:39) [3]

TMyClass2=class()
published
property Prop1:Integer;
end;
Ctrl-Shift-C дополнит объявление

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

← →
Новичек. (2002-09-30 15:44) [4]

Дело в том, что мне нужно

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

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

← →
qube © (2002-09-30 15:46) [5]

Что организовать? И где тут наследование?

← →
gek © (2002-09-30 15:48) [6]

См MBo © (30.09.02 15:39)
Тебе предельно подробно ответили

← →
Новичек. (2002-09-30 15:49) [7]

Ладно, как мне сделать такое обращение, чтобы все было структурировано и понятно?

← →
MBo © (2002-09-30 15:52) [8]

>Новичек
Пока что твой вопрос выглядит примерно так -
"А как бы мне сделать что-то хорошее?"

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

← →
Новичек. (2002-09-30 15:55) [9]

Ты обьяснить можешь?

Что объяснить, если ты вопрос не задал толком?

Я, вероятно, могу объяснить, только не знаю, что именно.

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;

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

Классы Найти похожие ветки