• Delphi 设计模式:《HeadFirst设计模式》Delphi7代码---观察者模式之WeatherReport[转]



      1
      2{《HeadFirst设计模式》之观察者模式 }
      3{ 主题与观察者                    }
      4{ 编译工具 :Delphi7.0            }
      5{ 联系方式 :guzh-0417@163.com    }
      6
      7unit uWeatherReport;
      8
      9interface
     10
     11uses
     12  Classes, SysUtils;
     13
     14type
     15  TObserver = class; { Forward声明,创建两个相互依赖的类 }
     16  
     17  { 抽象主题 }
     18  TSubject = class(TObject)
     19    procedure RegisterObserver(aObserver: TObserver); virtual; abstract;
     20    procedure RemoveObserver  (aObserver: TObserver); virtual; abstract;
     21    procedure NotifyObserver; virtual; abstract;
     22  end;
     23
     24  { 具体主题 }
     25  TWeatherData = class(TSubject)
     26  private
     27    FObservers: TList;
     28    FTemp     : Integer;
     29    FHumidity : Integer;
     30    FPresssure: Integer;
     31  public
     32    constructor Create;
     33    destructor Destroy; override;
     34    procedure RegisterObserver(aObserver: TObserver); override;
     35    procedure RemoveObserver  (aObserver: TObserver); override;
     36    procedure NotifyObserver; override;
     37    procedure MeasurementsChanged;
     38    procedure SetMeasurements(aTemp, aHumidity, aPresssure: Integer);
     39  end;
     40
     41  {**************************************************************************}
     42
     43  { 抽象观察者 }
     44  TObserver = class(TObject)
     45    procedure UpDate(Temp, Humidity, Presssure: Integer); virtual; abstract;
     46    procedure Display; virtual; abstract;
     47  end;
     48
     49  { 具体观察者 }
     50  TCurrentConditionsDisplay = class(TObserver)
     51  private
     52    FTemp       : Integer;
     53    FHumidity   : Integer;
     54    FWeatherData: TSubject;
     55  public
     56    constructor Create(aWeatherData: TSubject);
     57    destructor Destroy; override;
     58    procedure UpDate(aTemp, aHumidity, aPresssure: Integer); override;
     59    procedure Display; override;
     60  end;
     61
     62implementation
     63
     64{ TWeatherData }
     65
     66constructor TWeatherData.Create;
     67begin
     68  FObservers := TList.Create;
     69end;
     70
     71destructor TWeatherData.Destroy;
     72begin
     73  FObservers.Clear;
     74  FreeAndNil(FObservers);
     75  inherited Destroy;
     76end;
     77
     78procedure TWeatherData.MeasurementsChanged;
     79begin
     80  NotifyObserver;
     81end;
     82
     83procedure TWeatherData.NotifyObserver;
     84var
     85  i: Integer;
     86  aObserver: TObserver;
     87begin
     88  for i := 0 to FObservers.Count - 1 do
     89  begin
     90    aObserver := TObserver(FObservers.Items[i]);
     91    aObserver.UpDate(FTemp, FHumidity, FPresssure);
     92  end;
     93end;
     94
     95procedure TWeatherData.RegisterObserver(aObserver: TObserver);
     96begin
     97  FObservers.Add(aObserver);
     98end;
     99
    100procedure TWeatherData.RemoveObserver(aObserver: TObserver);
    101var
    102  i: Integer;
    103begin
    104  i := FObservers.IndexOf(aObserver);
    105  if (i >= 0) then
    106    FObservers.Remove(aObserver);
    107end;
    108
    109procedure TWeatherData.SetMeasurements(aTemp, aHumidity, aPresssure: Integer);
    110begin
    111  FTemp      := aTemp;
    112  FHumidity  := aHumidity;
    113  FPresssure := aPresssure;
    114  MeasurementsChanged;
    115end;
    116
    117{ TCurrentConditionsDisplay }
    118
    119constructor TCurrentConditionsDisplay.Create(aWeatherData: TSubject);
    120begin
    121  FWeatherData := aWeatherData;
    122  aWeatherData.RegisterObserver(Self);
    123end;
    124
    125destructor TCurrentConditionsDisplay.Destroy;
    126begin
    127  inherited Destroy;
    128end;
    129
    130procedure TCurrentConditionsDisplay.Display;
    131begin
    132  Writeln('Current Conditions: ', FTemp, ' degrees and ',
    133          FHumidity, '% humidity.');
    134end;
    135
    136procedure TCurrentConditionsDisplay.UpDate(aTemp, aHumidity,
    137                                           aPresssure: Integer);
    138begin
    139  FTemp     := aTemp;
    140  FHumidity := aHumidity;
    141  Display;
    142end;
    143
    144end.

        


     1
     2{《HeadFirst设计模式》之观察者模式 }
     3{ 客户端                         }
     4{ 编译工具 :Delphi7.0            }
     5{ 联系方式 :guzh-0417@163.com    }
     6
     7program pWeatherReport;
     8
     9{$APPTYPE CONSOLE}
    10
    11uses
    12  SysUtils,
    13  uWeatherReport in 'uWeatherReport.pas';
    14
    15var
    16  aWeatherData: TWeatherData;
    17  aCurrentConditionsDisplay: TCurrentConditionsDisplay;
    18  
    19begin
    20  aWeatherData := TWeatherData.Create;
    21  aCurrentConditionsDisplay := TCurrentConditionsDisplay.Create(aWeatherData);
    22
    23  aWeatherData.SetMeasurements(80, 65, 30);
    24
    25  FreeAndNil(aWeatherData);
    26  FreeAndNil(aCurrentConditionsDisplay);
    27
    28  Readln;
    29end.

    运行结果:

     
     
  • 相关阅读:
    [注]打动我的50句广告语
    [SD.TEAM语录]AC语录
    [SD.TEAM语录]阿翔语录
    [安卓基础] 009.组件Activity详解
    [Python自学] day-21 (1) (请求信息、html模板继承与导入、自定义模板函数、自定义分页)
    [Python自学] day-20 (Django-ORM、Ajax)
    [Python自学] day-19 (2) (Django-ORM)
    [Python自学] day-19 (1) (FBV和CBV、路由系统)
    [Python自学] day-18 (2) (MTV架构、Django框架、模板语言)
    [Python自学] day-18 (1) (JS正则、第三方组件)
  • 原文地址:https://www.cnblogs.com/0x2D-0x22/p/4076323.html
Copyright © 2020-2023  润新知