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

PEK

Дата 16.8.2006, 10:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 16.8.2006

Репутация: нет
Всего: нет

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

Snowy

Дата 16.8.2006, 11:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Вариантная запись подойдёт?

Код


type
  TState = (inWork, inHolyday);
  TStatus = record
    state: TState;
    case TState of
      inWork: (Come, Dinner, Leave: TDateTime);
      inHolyday: (hBegin, hEnd: TDateTime);
  end;

  TWorker = class
  public
    Name: string;
    Status: TStatus;
    constructor Create;
  end;

constructor TWorker.Create;
begin
  Status.state := inWork;
end;

procedure TForm1.Button1Click(Sender: TObject);
var w: TWorker;
begin
  w := TWorker.Create;
  w.Name := 'Harrison Ford'
  w.Status.state := inHolyday;
  w.Status.hBegin := Now;
  w.Status.hEnd := Now + 2;

Можно ещё с подменой классов. Но это чревато ошибками.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »