templatemethodunit1.pas

设计模式delphi版给想学delphi的朋友一个很有价值的参考

unit TemplateMethodUnit1;

interface
type
  TView = class
  public
    procedure Display(); virtual;
    procedure DoDisplay();
  protected
    procedure SetFocus();
    procedure ResetFocus();
  end;

  TMyView = class(TView)
  public
    procedure DoDisplay();
  end;

implementation

procedure TView.Display();
begin
  SetFocus();
  DoDisplay();
  ResetFocus();
end;

procedure TView.DoDisplay();
begin
//