Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];

Вниз

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

 
Новичек.   (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]

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


 
qube   (2002-09-30 15:58) [10]

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


 
MBo   (2002-09-30 15:58) [11]

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


 
Демонов Е.В.   (2002-09-30 15:59) [12]

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;

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



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.57 MB
Время: 0.045 c
1-31770
Link
2002-10-01 18:41
2002.10.10
Нормальный вид числа


14-32011
AL2002
2002-09-17 11:47
2002.10.10
Какого у меня радио играет?


14-31979
CrazyAngel
2002-09-16 13:50
2002.10.10
Конторский траффик


4-32075
ElectHp
2002-08-24 20:47
2002.10.10
Submit


1-31798
Демонов Е.В.
2002-10-01 11:30
2002.10.10
Вопрос О COLOR-e





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский