viewcode.inc

delphi框架

ViewHead =
    'unit %ModelIdent;                                        ' + #10#13 +
    '                                                          ' + #10#13 +
    '// This code was generated by the EasyMVC OTA Wizard      ' + #10#13 +
    '// www.eazisoft.com                                       ' + #10#13 +
    '                                                          ' + #10#13 +
    'interface                                                 ' + #10#13 +
    'uses                                                      ' + #10#13 +
    '  Windows, Messages, SysUtils,  Classes,Graphics,' + #10#13 +
    '  Controls,StdCtrls,ComCtrls,ExtCtrls,Forms,patterns;     ' + #10#13 +
    '                                                          ' + #10#13;
ViewDef =
    'type                                                      ' + #10#13 +
    '  T%FormIdent = class(T%AncestorIdent,IObserver)          ' + #10#13 +
    '  private                                                 ' + #10#13 +
    '    { Private declarations }                              ' + #10#13 +
    '    procedure UpdateView(o: TObject);//from IObserver     ' + #10#13 +
    '  public                                                  ' + #10#13 +
    '    { Public declarations }                               ' + #10#13 +
    '  end;                                                    ' + #10#13 +
    '                                                          ' + #10#13 ;

ViewImpl =
    'procedure T%FormIdent.UpdateView(o: TObject);             ' + #10#13 +
    'begin                                                     ' + #10#13 +
    '  {write your code here}                                  ' + #10#13 +
    'end;                                                      ' + #10#13;

ViewCode = ViewHead + ViewDef+
    '                                                          ' + #10#13 +
    'implementation                                            ' + #10#13 +
    '                                                          ' + #10#13 +
    '{$R *.dfm}                                                ' + #10#13 +
    '                                                          ' + #10#13 +
    ViewImpl+
    'end.                                                      ' + #10#13;

ViewCode2 = ViewHead + ViewDef+
    '                                                          ' + #10#13 +
    'implementation                                            ' + #10#13 +
    '                                                          ' + #10#13 +
    ViewImpl+
    'end.                                                      ' + #10#13;