delphi0.sct

c#设计模式WithCla

CLASS_USER1
unit CLASS_NAME;

interface
CLASS_USER2
CLASS_USER3
uses SysUtils, Messages, Classes [, BASE_CLASS ][, ASSOCIATION_ONE_CLASS ][, AGGREGATION_ONE_CLASS ][, ASSOCIATION_MANY_CLASS ][, AGGREGATION_MANY_CLASS ][, INCLUDE_FILE ] ;

type
  T$CLASS_NAME = class [(T$BASE_CLASS)]
                                         
  private
[COLUMN_TAB(4) ATTRIBUTE_NAME : ATTRIBUTE_TYPE ; ]
[COLUMN_TAB(4) ASSOCIATION_ONE_NAME : T$ASSOCIATION_ONE_CLASS ; ]
[COLUMN_TAB(4) AGGREGATION_ONE_NAME : T$AGGREGATION_ONE_CLASS ; ]
[COLUMN_TAB(4) ASSOCIATION_MANY_NAME : array LITERAL_SYMBOL[1..10 LITERAL_SYMBOL] of T$ASSOCIATION_MANY_CLASS ; ]
[COLUMN_TAB(4) AGGREGATION_MANY_NAME : array LITERAL_SYMBOL[1..10 LITERAL_SYMBOL] of T$AGGREGATION_MANY_CLASS ; ]

  public
                 
  constructor Create; virtual;  { override;  replace virtual with override in derived classes }

  destructor Destroy ; override;

SELECT_WHEN OPERATION_IS_PROCEDURE [                       
  procedure OPERATION_NAME PASCAL_OPERATION_PARAMETERS_WITH_VAR ; PASCAL_OPERATION_VIRTUAL PASCAL_OPERATION_ABSTRACT PASCAL_OPERATION_OVERRIDE  ]

SELECT_WHEN OPERATION_IS_FUNCTION [                      
  function OPERATION_NAME PASCAL_OPERATION_PARAMETERS_PAREN PASCAL_OPERATION_RETURN_TYPE ; PASCAL_OPERATION_VIRTUAL  PASCAL_OPERATION_ABSTRACT PASCAL_OPERATION_OVERRIDE]
  
end;

implementation

{-----------------------------------------------------------------------------------------------}
constructor T$CLASS_NAME$.Create;
begin
  inherited Create ;
{ Place code here  }
end;
 
{-----------------------------------------------------------------------------------------------}
			{Update as required.}
destructor T$CLASS_NAME$.Destroy ;
begin
{ Place code here  }
  inherited Destroy;
end;

SELECT_WHEN OPERATION_IS_PROCEDURE	 
[{-----------------------------------------------------------------------------------------------}
procedure T$CLASS_NAME.OPERATION_NAME PASCAL_OPERATION_PARAMETERS_WITH_VAR ; 
begin
{ Place code here  }
 OPERATION_CODE
end;    
]

SELECT_WHEN OPERATION_IS_FUNCTION	
[{-----------------------------------------------------------------------------------------------}
function T$CLASS_NAME.OPERATION_NAME PASCAL_OPERATION_PARAMETERS_PAREN PASCAL_OPERATION_RETURN_TYPE ; 
begin
{ Place code here and return an object }
 OPERATION_CODE
end;    
]

end.