TDDCustomCodeGenerator

type TDDCustomCodeGenerator = class(TComponent)

  FCodeOptions: TCodeGeneratorOptions;

protected

  procedure AddLn();

  function CreatePascalString();

  procedure IncIndent;

  procedure DecIndent;

  procedure BeginMethod(); virtual;

  procedure EndMethod(); virtual;

  procedure DoGenerateInterface(); virtual;

  procedure DoGenerateImplementation(); virtual;

  function CreateOptions; virtual;

  function GetInterfaceUsesClause; virtual;

  function GetImplementationUsesClause; virtual;

  function GetFieldDefs; virtual;

  procedure SetFieldDefs(); virtual;

  function GetSQL; virtual;

  procedure SetSQL(); virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure GenerateCode();

  class function NeedsSQL; virtual;

  class function NeedsFieldDefs; virtual;

  function ShowConfigDialog;

  property Fields: TFieldPropDefs; [rw]

  property SQL: TStrings; [rw]

published

  property CodeOptions: TCodeGeneratorOptions; [rw]

  property Indent: Integer; [rw]

end;

TDDCustomCodeGenerator

TObject