delphi1.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 ][, AGGEGATION_MANY_CLASS ][, INCLUDE_FILE ] ;

type
  T$CLASS_NAME = class [(T$BASE_CLASS)]

private
[COLUMN_TAB(4) F$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 : TList ; ]
[COLUMN_TAB(4) AGGREGATION_MANY_NAME : TList ; ]

protected

SELECT_WHEN ATTRIBUTE_IS_WRITE_PROPERTY 
[  procedure Set$ATTRIBUTE_NAME ( const a$ATTRIBUTE_NAME : ATTRIBUTE_TYPE ); {Accessor Set Procedure } ]

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

			{Update to initialize ancestor fields.}
  constructor Initialize ( [const a$ATTRIBUTE_NAME : ATTRIBUTE_TYPE DELETE_LAST_SYMBOL;] NO_RETURN);

  destructor Destroy ; override;

SELECT_WHEN ATTRIBUTE_IS_READ_PROPERTY LOGICAL_AND ATTRIBUTE_IS_WRITE_PROPERTY [
  property ATTRIBUTE_NAME : ATTRIBUTE_TYPE read F$ATTRIBUTE_NAME write Set$ATTRIBUTE_NAME ;]

SELECT_WHEN ATTRIBUTE_IS_READ_PROPERTY LOGICAL_AND LOGICAL_NOT ATTRIBUTE_IS_WRITE_PROPERTY [
  property ATTRIBUTE_NAME : ATTRIBUTE_TYPE read F$ATTRIBUTE_NAME ;]

SELECT_WHEN ATTRIBUTE_IS_WRITE_PROPERTY LOGICAL_AND LOGICAL_NOT ATTRIBUTE_IS_READ_PROPERTY [
  property ATTRIBUTE_NAME : ATTRIBUTE_TYPE write Set$ATTRIBUTE_NAME ;]

SELECT_WHEN OPERATION_IS_PROCEDURE [
  procedure OPERATION_NAME PASCAL_OPERATION_PARAMETERS_WITH_VAR ; PASCAL_OPERATION_VIRTUAL PASCAL_OPERATION_ABSTRACT PASCAL_OPERATION_OVERRIDE PASCAL_OPERATION_MESSAGE]

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 ;
  [ F$ATTRIBUTE_NAME := ATTRIBUTE_INITIAL_VALUE; ]
  [ ASSOCIATION_ONE_NAME := T$ASSOCIATION_ONE_CLASS$.Create; ]
  [ AGGREGATION_ONE_NAME := T$AGGREGATION_ONE_CLASS$.Create; ]
  [ ASSOCIATION_MANY_NAME := TList$.Create; ]
  [ AGGREGATION_MANY_NAME := TList$.Create; ]
end;

{-----------------------------------------------------------------------------------------------}
			{Update to initialize ancestor fields.}
constructor T$CLASS_NAME$.Initialize ( [const a$ATTRIBUTE_NAME : ATTRIBUTE_TYPE  DELETE_LAST_SYMBOL;] NO_RETURN);
begin
  self.Create;
  [ F$ATTRIBUTE_NAME := a$ATTRIBUTE_NAME;
  ]
end;

{-----------------------------------------------------------------------------------------------}
			{Update as required.}
destructor T$CLASS_NAME$.Destroy ;
begin
{ Place code here to free objects implementing 1:Many  }
  [ ASSOCIATION_ONE_NAME$.Free; ]
  [ AGGREGATION_ONE_NAME$.Free; ]
  [ ASSOCIATION_MANY_NAME$.Free; ]
  [ AGGREGATION_MANY_NAME$.Free; ]
  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;    
]
SELECT_WHEN ATTRIBUTE_IS_WRITE_PROPERTY
[{-----------------------------------------------------------------------------------------------}
			{Accessor Set Procedure }
procedure T$CLASS_NAME.Set$ATTRIBUTE_NAME ( const a$ATTRIBUTE_NAME : ATTRIBUTE_TYPE ); 
begin
  F$ATTRIBUTE_NAME := a$ATTRIBUTE_NAME;
end; 
]
end.


TRIBUTE_NAME := a$ATTRIBUTE_NAME;
end; 
]
end.