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

← →
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]

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

> Sniper (16.08.06 13:07) [3]

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

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

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