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

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

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

Изменяющиеся свойства подкласса [D6]

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

clickmaker (2006-08-16 13:26:00) [1]

> 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;

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

> Sniper (16.08.06 13:07) [3]

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

Sniper (2006-08-16 13:07:00) [3]
Как описать класс чтоб взависимости от статуса свойства класса были то доступные, то по рукам?

evvcom (2006-08-16 12:12:00) [4]
Создаешь все эти свойства, а при обращении к ним проверяешь статус, и если не тот, то по рукам (raise EMyException.Create(...))

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

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

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

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

> подкласса

Это как ?

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

Наверх

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