delphi_customer.sct.txt

来自「c#设计模式WithCla」· 文本 代码 · 共 172 行

Unit CLASS_NAME;

{------------------------------------------------------------------------=
-------------------------}

{CLASS_DESCRIPTION}

{------------------------------------------------------------------------=
-------------------------}

   interface

{------------------------------------------------------------------------=
-------------------------}

{CLASS_USER1}

   Uses
      SysUtils, Messages, Classes [,DELETE_LAST_SYMBOL BASE_CLASS =
][,DELETE_LAST_SYMBOL ASSOCIATION_ONE_CLASS ][,DELETE_LAST_SYMBOL =
AGGREGATION_ONE_CLASS ][,DELETE_LAST_SYMBOL ASSOCIATION_MANY_CLASS =
][,DELETE_LAST_SYMBOL AGGREGATION_MANY_CLASS ][,DELETE_LAST_SYMBOL =
INCLUDE_FILE ] ;

{------------------------------------------------------------------------=
-------------------------}

   Type
      T$CLASS_NAME  class [(T$BASE_CLASS)]
            Private
SELECT_WHEN ATTRIBUTE_ACCESS  private[COLUMN_TAB(14) =
ATTRIBUTE_NAME : ATTRIBUTE_TYPE ; ]
[COLUMN_TAB(14) ASSOCIATION_ONE_NAME : T$ASSOCIATION_ONE_CLASS ; ]
[COLUMN_TAB(14) AGGREGATION_ONE_NAME : T$AGGREGATION_ONE_CLASS ; ]

SELECT_WHEN OPERATION_IS_PROCEDURE LOGICAL_AND OPERATION_ACCESS  =
private[COLUMN_TAB(14) procedure OPERATION_NAME =
PASCAL_OPERATION_PARAMETERS_WITH_VAR ; PASCAL_OPERATION_VIRTUAL =
PASCAL_OPERATION_ABSTRACT PASCAL_OPERATION_OVERRIDE  ]
SELECT_WHEN OPERATION_IS_FUNCTION LOGICAL_AND OPERATION_ACCESS  =
private[COLUMN_TAB(14) function OPERATION_NAME =
PASCAL_OPERATION_PARAMETERS PASCAL_OPERATION_RETURN_TYPE ; =
PASCAL_OPERATION_VIRTUAL  PASCAL_OPERATION_ABSTRACT =
PASCAL_OPERATION_OVERRIDE]

            Protected
SELECT_WHEN ATTRIBUTE_ACCESS  protected[COLUMN_TAB(14) =
ATTRIBUTE_NAME : ATTRIBUTE_TYPE ; ]

SELECT_WHEN ATTRIBUTE_IS_PROPERTY[COLUMN_TAB(14) function =
Get$ATTRIBUTE_USER1 : ATTRIBUTE_TYPE; {Accessor Get Function }
COLUMN_TAB(14) procedure Set$ATTRIBUTE_USER1 ( a$ATTRIBUTE_USER1 : =
ATTRIBUTE_TYPE ); {Accessor Set Procedure }]

SELECT_WHEN OPERATION_IS_PROCEDURE LOGICAL_AND OPERATION_ACCESS  =
protected[COLUMN_TAB(14) procedure OPERATION_NAME =
PASCAL_OPERATION_PARAMETERS_WITH_VAR ; PASCAL_OPERATION_VIRTUAL =
PASCAL_OPERATION_ABSTRACT PASCAL_OPERATION_OVERRIDE  ]
SELECT_WHEN OPERATION_IS_FUNCTION LOGICAL_AND OPERATION_ACCESS  =
protected[COLUMN_TAB(14) function OPERATION_NAME =
PASCAL_OPERATION_PARAMETERS PASCAL_OPERATION_RETURN_TYPE ; =
PASCAL_OPERATION_VIRTUAL  PASCAL_OPERATION_ABSTRACT =
PASCAL_OPERATION_OVERRIDE]

            Public
SELECT_WHEN ATTRIBUTE_ACCESS  public[COLUMN_TAB(14) ATTRIBUTE_NAME =
: ATTRIBUTE_TYPE ;
]
               Constructor Create; virtual;
               Destructor Destroy ; override;

SELECT_WHEN OPERATION_IS_PROCEDURE LOGICAL_AND OPERATION_ACCESS  =
public[COLUMN_TAB(14) Procedure OPERATION_NAME =
PASCAL_OPERATION_PARAMETERS_WITH_VAR ; PASCAL_OPERATION_VIRTUAL =
PASCAL_OPERATION_ABSTRACT PASCAL_OPERATION_OVERRIDE  ]
SELECT_WHEN OPERATION_IS_FUNCTION LOGICAL_AND OPERATION_ACCESS  =
public[COLUMN_TAB(14) Function OPERATION_NAME =
PASCAL_OPERATION_PARAMETERS PASCAL_OPERATION_RETURN_TYPE ; =
PASCAL_OPERATION_VIRTUAL  PASCAL_OPERATION_ABSTRACT =
PASCAL_OPERATION_OVERRIDE]

SELECT_WHEN ATTRIBUTE_IS_PROPERTY
[COLUMN_TAB(14) Property ATTRIBUTE_USER1 : ATTRIBUTE_TYPE read =
Get$ATTRIBUTE_USER1 write Set$ATTRIBUTE_USER1 ;]
         end;

{------------------------------------------------------------------------=
-------------------------}

   implementation

{------------------------------------------------------------------------=
-------------------------}

   Constructor T$CLASS_NAME$.Create;
  
      begin
         Inherited Create ;

         [ATTRIBUTE_NAME : ATTRIBUTE_INITIAL_VALUE; ]

         { Place code here  }

      end;

{------------------------------------------------------------------------=
-------------------------}

			{Update as required.}
   Destructor T$CLASS_NAME$.Destroy ;

      begin
         { Place code here  }
     
         Inherited Destroy;
      end;

SELECT_WHEN =
ATTRIBUTE_IS_PROPERTY[{--------------------------------------------------=
-----------------------------------------------}
			{Accessor Get Function }
   Function T$CLASS_NAME.Get$ATTRIBUTE_USER1 : ATTRIBUTE_TYPE;

      begin
         Result : ATTRIBUTE_NAME;
      end;

{------------------------------------------------------------------------=
-------------------------}
			{Accessor Set Procedure }
   Procedure T$CLASS_NAME.Set$ATTRIBUTE_USER1 ( a$ATTRIBUTE_USER1 : =
ATTRIBUTE_TYPE );

      begin
         $ATTRIBUTE_NAME : a$ATTRIBUTE_USER1 ;
      end;
] 
SELECT_WHEN OPERATION_IS_PROCEDURE	
[{-----------------------------------------------------------------------=
--------------------------}

   {OPERATION_COMMENT1}

   Procedure T$CLASS_NAME.OPERATION_NAME =
PASCAL_OPERATION_PARAMETERS_WITH_VAR ;
  
      begin
         { Place code here or Modify}
         OPERATION_CODE		
      end;   
]

SELECT_WHEN OPERATION_IS_FUNCTION
[{-----------------------------------------------------------------------=
--------------------------}

   {OPERATION_COMMENT1}

   Function T$CLASS_NAME.OPERATION_NAME PASCAL_OPERATION_PARAMETERS =
PASCAL_OPERATION_RETURN_TYPE ;

      begin
         { Place code here and return an object }
         OPERATION_CODE		
      end;   
]

{------------------------------------------------------------------------=
-------------------------}

end.