TDDClassCodeGenerator

type TDDClassCodeGenerator = class(TDDCustomCodeGenerator)

protected

  function GetFieldDefs; override;

  procedure SetFieldDefs(); override;

  function CreateOptions; override;

  procedure DoBeforeTypeSection(); virtual;

  procedure DoAfterTypeSection(); virtual;

  procedure DoBeforeClassDeclaration(); virtual;

  procedure DoAfterClassDeclaration(); virtual;

  procedure DoBeforeConstructor(); virtual;

  procedure DoAfterDestructor(); virtual;

  procedure DoBeforeClassImplementation(); virtual;

  procedure DoAfterClassImplementation(); virtual;

  procedure DoGenerateInterface(); override;

  procedure DoGenerateImplementation(); override;

  function GetClassInterfaces; virtual;

  function CreateFieldPropDefs; virtual;

  procedure WritePropertyGetterImpl(); virtual;

  procedure WritePropertySetterImpl(); virtual;

  procedure CreateDeclaration(); virtual;

  procedure CreateClassHead(); virtual;

  procedure CreateClassEnd(); virtual;

  procedure WriteVisibilityStart(); virtual;

  procedure WriteVisibilityEnd(); virtual;

  function AllowPropertyDeclaration(); virtual;

  procedure WritePropertyDeclaration(); virtual;

  function PropertyDeclaration(); virtual;

  procedure WritePrivateFields(); virtual;

  procedure CreateImplementation(); virtual;

  procedure WriteConstructorImplementation(); virtual;

  procedure WriteDestructorImplementation(); virtual;

  procedure WriteFieldCreate(); virtual;

  procedure WriteFieldDestroy(); virtual;

  function PropertyGetterDeclaration(); virtual;

  function PropertySetterDeclaration(); virtual;

  function NeedsConstructor; virtual;

  function NeedsDestructor; virtual;

  function ConstructorDeclaration(); virtual;

  function DestructorDeclaration(); virtual;

  property StringsClass: string; [rw]

  property StreamClass: string; [rw]

  property ClassOptions: TClassCodeGeneratorOptions; [r]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure GenerateClass();

published

  property Fields: TFieldPropDefs;

  property AfterTypeSection: TCodeEvent; [rw]

  property BeforeTypeSection: TCodeEvent; [rw]

  property AfterClassDeclaration: TCodeEvent; [rw]

  property BeforeClassDeclaration: TCodeEvent; [rw]

  property AfterClassImplementation: TCodeEvent; [rw]

  property BeforeClassImplementation: TCodeEvent; [rw]

  property AfterDestructorImplementation: TCodeEvent; [rw]

  property BeforeConstructorImplementation: TCodeEvent; [rw]

end;

TDDClassCodeGenerator

TDDCustomCodeGenerator

TObject