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

Вниз

Изменяющиеся свойства подкласса   Найти похожие ветки 

 
Sniper   (2006-08-16 11:18) [0]

Доброе врямя суток!!!
Подскажите пожалуйста как установить изменяющееся свойства подкласса???
Например:
TStatus=(inWork,inHoliday,...)
для inWork<?B> были доступны свойста: Приход, Уход, Обед, а для inHoliday-С какого по какое число.


 
Сергей М. ©   (2006-08-16 12:09) [1]


> как установить изменяющееся свойства


Обычным образом:

Объект.ИмяСвойства := ЗначениеСвойства;


> подкласса


Это как ?

Проиллюстрируй в коде ...


 
evvcom ©   (2006-08-16 12:12) [2]

Создаешь все эти свойства, а при обращении к ним проверяешь статус, и если не тот, то по рукам (raise EMyException.Create(...))


 
Sniper   (2006-08-16 13:07) [3]

Как описать класс чтоб взависимости от статуса свойства класса  были то доступные, то по рукам?


 
Сергей М. ©   (2006-08-16 13:13) [4]


> Sniper   (16.08.06 13:07) [3]


Попытаюсь перевести твою абракадабру на "нормальный" язык: как программно реализовать зависимость возможности изменения некоего св-ва некоего объекта от текущего значения некоего другого св-ва  некоего (того же либо другого)  объекта. Как тебе перевод ? Соответствует ?


 
clickmaker ©   (2006-08-16 13:26) [5]


> Sniper   (16.08.06 13:07) [3]


procedure TEmployee.SetArrivalDate(Value: TDAte);
begin
  if (FStatus = inWork) then
    FArrivalDate := Value
  else
    Raise Exception.Create("Employee is on vacation now");
end;



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

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

Наверх





Память: 0.45 MB
Время: 0.036 c
1-1155296292
KygECHuK
2006-08-11 15:38
2006.09.24
Поиск по имени компонента


15-1157039421
ArtemESC
2006-08-31 19:50
2006.09.24
html-книга...


1-1155211730
Igor_thief
2006-08-10 16:08
2006.09.24
Работа с браузером


1-1152698492
.ruslan
2006-07-12 14:01
2006.09.24
TCoolBar с сохранением параметров


15-1156954704
Rule
2006-08-30 20:18
2006.09.24
Поздравте меня, я уже не безработаный :-)))





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский