Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Программа и интерфейс
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #6  
Старый 03.06.2010, 19:10
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,107
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну... примерно так:

Код:
type
  TWaterTemp = (wtNone, wtCold, wtWarm, wtHot);

  TSmesitel = class
  private
    FIsHotOpen : Boolean;
    FIsColdOpen : Boolean;
    FIsShower : Boolean;

    function GetWaterTemp : TWaterTemp;
  public
    constructor Create;
    destructor Destroy; override;

    procedure OpenHot;
    procedure OpenCold;
    procedure CloseHot;
    procedure CloseCold;
    procedure TurnShower;

    property IsColdOpen : Boolean read FIsColdopen;
    property IsHotOpen : Boolean read FIsHotOpen;
    property IsShower : Boolean read FIsShower;
    property WaterTemp : TwaterTemp read GetWaterTemp;
  end;

...

..

function TSmesitel.GetWaterTemp : TWaterTemp;
begin
  If FIsColdOpen And FIsHotOpen
    Then Result := wtWarm
    Else
      If FIsColdOpen And (Not FIsHotOpen) 
        Then Result := wtCold
         Else
           If (Not FIsColdOpen) And FIsHotOpen
              Then Result := wtHot
              Else Result := wtNone;
end;

ну а дальше - реализуй объявленные методы и доработай в соотв. со своей фантазией...
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 03:59.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025