TDDDBCollCodeGenerator

type TDDDBCollCodeGenerator = class(TDDClassCodeGenerator)

protected

  function IsRecord;

  procedure CreateClassHead(); override;

  procedure CreateObjectAssign(); virtual;

  procedure CreateFieldMapImplementation();

  procedure CreateListImplementation();

  procedure WriteFieldMapAssign();

  procedure WriteMapInitFields();

  procedure WriteListLoad();

  procedure WriteListAddObject();

  function GetInterfaceUsesClause; override;

  procedure DoGenerateInterface(); override;

  procedure DoGenerateImplementation(); override;

  procedure WriteVisibilityStart(); override;

  procedure CreateImplementation(); override;

  function CreateOptions; override;

  procedure DoCreateListDeclaration(); virtual;

  procedure DoCreateFieldMapDeclaration(); virtual;

  procedure DoWriteMapLoad(); virtual;

  procedure DoWriteMapLoadObject(); virtual;

  procedure WriteListCreateObject();

  procedure WriteListLoadFromDataset();

  procedure WriteListLoadFromMap();

  procedure CreateObjectLoadFromMap(); virtual;

  procedure WriteFieldDatasetAssign(); virtual;

  procedure WriteFieldAssign(); virtual;

  procedure CreateObjectLoadFromDataset(); virtual;

public

  class function NeedsFieldDefs; override;

  procedure CreateFieldMapDeclaration();

  procedure CreateListDeclaration();

  property DBCollOptions: TDBCollOptions; [r]

end;

TDDDBCollCodeGenerator

TDDClassCodeGenerator

TDDCustomCodeGenerator

TObject