delall.sct

c#设计模式WithCla

    end; 
   AGGREGATION_MANY_NAME$.Free;{Frees 1:Many Aggregation List Object} ]
  inherited Destroy;
end;

{-----------------------------------------------------------------------------------------------}
function T$CLASS_NAME$.CloneFromCopy (const a$CLASS_NAME : T$CLASS_NAME ) : T$CLASS_NAME ;
begin  { update to clone ancestor fields }
  [ Self.F$ATTRIBUTE_NAME := a$CLASS_NAME$.ATTRIBUTE_NAME ; ]
  [ Self.$ASSOCIATION_ONE_NAME := nil; {Update to assign a ASSOCIATION_ONE_CLASS } ]
  [ ASSOCIATION_MANY_NAME$.Clear; {Update to add ASSOCIATION_MANY_CLASS$'s} ]
  [{Update AGGREGATION_ONE_NAME - T$AGGREGATION_ONE_CLASS } ]
  [{Update AGGREGATION_MANY_NAME - T$AGGREGATION_MANY_CLASS } ]
  CloneFromCopy := Self; 
end;

{-----------------------------------------------------------------------------------------------}
function T$CLASS_NAME.EqualTo ( const a$CLASS_NAME : T$CLASS_NAME ) : Boolean; 
begin  { Does a field by field comparison - update to compare part/associated objects and ancestor fields }
  [if (F$ATTRIBUTE_NAME <> a$CLASS_NAME.F$ATTRIBUTE_NAME) then EqualTo := false DELETE_LAST_SYMBOL;] 
  else EqualTo := true;
end;

SELECT_WHEN OPERATION_IS_PROCEDURE       
[{-----------------------------------------------------------------------------------------------}
PASCAL_OPERATION_STATIC procedure T$CLASS_NAME.OPERATION_NAME PASCAL_OPERATION_PARAMETERS_WITH_VAR ; 
begin
{ Place code here  }
  OPERATION_CODE
end;    
]
SELECT_WHEN OPERATION_IS_FUNCTION 
[{-----------------------------------------------------------------------------------------------}
PASCAL_OPERATION_STATIC function T$CLASS_NAME.OPERATION_NAME PASCAL_OPERATION_PARAMETERS PASCAL_OPERATION_RETURN_TYPE ; 
begin
{ Place code here and return an object }
  OPERATION_CODE
end;    
]
[{-----------------------------------------------------------------------------------------------}
function T$CLASS_NAME.Get$ATTRIBUTE_NAME : ATTRIBUTE_TYPE; {Accessor Get Function }
begin
  Get$ATTRIBUTE_NAME := F$ATTRIBUTE_NAME;
end;
]
[{-----------------------------------------------------------------------------------------------}
procedure T$CLASS_NAME.Set$ATTRIBUTE_NAME ( const a$ATTRIBUTE_NAME : ATTRIBUTE_TYPE ); {Accessor Set Procedure }
begin
  F$ATTRIBUTE_NAME := a$ATTRIBUTE_NAME;
end; 
]
[{-----------------------------------------------------------------------------------------------}
procedure T$CLASS_NAME$.Set$ASSOCIATION_ONE_CLASS ( const a$ASSOCIATION_ONE_CLASS : T$ASSOCIATION_ONE_CLASS );
begin
  ASSOCIATION_ONE_NAME := a$ASSOCIATION_ONE_CLASS ;
end;
]
[{-----------------------------------------------------------------------------------------------}
function T$CLASS_NAME$.Get$ASSOCIATION_ONE_CLASS ( ) : T$ASSOCIATION_ONE_CLASS ; 
begin
  Get$ASSOCIATION_ONE_CLASS := ASSOCIATION_ONE_NAME;
end;
]
[{-----------------------------------------------------------------------------------------------}
procedure T$CLASS_NAME$.Remove$ASSOCIATION_ONE_CLASS ; 
begin
  ASSOCIATION_ONE_NAME := nil;
end;
]
[{-----------------------------------------------------------------------------------------------}
procedure T$CLASS_NAME$.Set$ASSOCIATION_MANY_CLASS$List ( const a$ASSOCIATION_MANY_CLASS$List : TList );
begin
  ASSOCIATION_MANY_NAME := a$ASSOCIATION_MANY_CLASS$List ;
end;
]
[{-----------------------------------------------------------------------------------------------}
function T$CLASS_NAME$.Get$ASSOCIATION_MANY_CLASS$List ( ) : TList ; 
begin
  Get$ASSOCIATION_MANY_CLASS$List := ASSOCIATION_MANY_NAME;
end;
]
[{-----------------------------------------------------------------------------------------------}
procedure T$CLASS_NAME$.Add$ASSOCIATION_MANY_CLASS ( const a$ASSOCIATION_MANY_CLASS : T$ASSOCIATION_MANY_CLASS );
begin                {Caller must create a$ASSOCIATION_MANY_CLASS  }
  ASSOCIATION_MANY_NAME.Add (a$ASSOCIATION_MANY_CLASS) ;
end;
]
[{-----------------------------------------------------------------------------------------------}
function T$CLASS_NAME$.Get$ASSOCIATION_MANY_CLASS (const Index : Integer ) : T$ASSOCIATION_MANY_CLASS ; 
begin
  Get$ASSOCIATION_MANY_CLASS := ASSOCIATION_MANY_NAME.Items LITERAL_SYMBOL[Index LITERAL_SYMBOL];
end;
]
[{-----------------------------------------------------------------------------------------------}
function T$CLASS_NAME$.Get$ASSOCIATION_MANY_CLASS$Count : Integer ; 
begin
  Get$ASSOCIATION_MANY_CLASS$Count := ASSOCIATION_MANY_NAME.Count;
end;
]
[{-----------------------------------------------------------------------------------------------}
procedure T$CLASS_NAME$.Remove$ASSOCIATION_MANY_CLASS ( const a$ASSOCIATION_MANY_CLASS : T$ASSOCIATION_MANY_CLASS );
begin   { Caller must free a$ASSOCIATION_MANY_CLASS  }
  ASSOCIATION_MANY_NAME.Remove (a$ASSOCIATION_MANY_CLASS) ; {Caller must free a$ASSOCIATION_MANY_CLASS }
end;
]
[{-----------------------------------------------------------------------------------------------}
procedure T$CLASS_NAME$.RemoveAll$ASSOCIATION_MANY_CLASS ; 
begin   { Caller must free ASSOCIATION_MANY_CLASS$'s  }
  ASSOCIATION_MANY_NAME.Clear;
end;
]

[{-----------------------------------------------------------------------------------------------}
procedure T$CLASS_NAME$.Set$AGGREGATION_ONE_CLASS ( const a$AGGREGATION_ONE_CLASS : T$AGGREGATION_ONE_CLASS );
begin
  AGGREGATION_ONE_NAME := a$AGGREGATION_ONE_CLASS ;
end;
]
[{-----------------------------------------------------------------------------------------------}
function T$CLASS_NAME$.Get$AGGREGATION_ONE_CLASS ( ) : T$AGGREGATION_ONE_CLASS ; 
begin
  Get$AGGREGATION_ONE_CLASS := AGGREGATION_ONE_NAME;
end;
]
[{-----------------------------------------------------------------------------------------------}
procedure T$CLASS_NAME$.Set$AGGREGATION_MANY_CLASS$List ( const a$AGGREGATION_MANY_CLASS$List : TList );
begin
  AGGREGATION_MANY_NAME := a$AGGREGATION_MANY_CLASS$List ;
end;
]
[{-----------------------------------------------------------------------------------------------}
function T$CLASS_NAME$.Get$AGGREGATION_MANY_CLASS$List ( ) : TList ; 
begin
  Get$AGGREGATION_MANY_CLASS$List := AGGREGATION_MANY_NAME;
end;
]
[{-----------------------------------------------------------------------------------------------}
procedure T$CLASS_NAME$.Add$AGGREGATION_MANY_CLASS ( const a$AGGREGATION_MANY_CLASS : T$AGGREGATION_MANY_CLASS );
begin                {Must create a$AGGREGATION_MANY_CLASS  }
  AGGREGATION_MANY_NAME.Add (a$AGGREGATION_MANY_CLASS) ;
end;
]
[{-----------------------------------------------------------------------------------------------}
function T$CLASS_NAME$.Get$AGGREGATION_MANY_CLASS (const Index : Integer ) : T$AGGREGATION_MANY_CLASS ; 
begin
  Get$AGGREGATION_MANY_CLASS := AGGREGATION_MANY_NAME.Items LITERAL_SYMBOL[Index LITERAL_SYMBOL];
end;
]
[{-----------------------------------------------------------------------------------------------}
function T$CLASS_NAME$.Get$AGGREGATION_MANY_CLASS$Count : Integer ; 
begin
  Get$AGGREGATION_MANY_CLASS$Count := AGGREGATION_MANY_NAME.Count;
end;
]
[{-----------------------------------------------------------------------------------------------}
procedure T$CLASS_NAME$.Remove$AGGREGATION_MANY_CLASS ( const a$AGGREGATION_MANY_CLASS : T$AGGREGATION_MANY_CLASS );
begin   
  AGGREGATION_MANY_NAME.Remove (a$AGGREGATION_MANY_CLASS) ; 
  a$AGGREGATION_MANY_CLASS$.Free;
end;
]
[{-----------------------------------------------------------------------------------------------}
procedure T$CLASS_NAME$.RemoveAll$AGGREGATION_MANY_CLASS ; 
NO_REPEAT var
  AGGREGATION_MANY_NAME$Index : Integer;
  Temp$AGGREGATION_MANY_NAME : T$AGGREGATION_MANY_CLASS ; ]
//begin 
  [ for AGGREGATION_MANY_NAME$Index := 0 to AGGREGATION_MANY_NAME$.Count - 1 do
    begin
      Temp$AGGREGATION_MANY_NAME := AGGREGATION_MANY_NAME$.Items LITERAL_SYMBOL[ AGGREGATION_MANY_NAME$Index LITERAL_SYMBOL] ;
      Temp$AGGREGATION_MANY_NAME.Free; {Frees 1:Many Aggregation Part Objects}
    end; 
   AGGREGATION_MANY_NAME$.Free; {Frees 1:Many Aggregation List Object} ]
//end;

end.