TFPDDPopulateCodeGenerator

type TFPDDPopulateCodeGenerator = class(TComponent)

protected

  procedure AddProperty();

  procedure AddStringProperty();

  procedure AddProcedure(); virtual;

  procedure EndProcedure();

  procedure Indent;

  procedure Undent;

  procedure AddLine(); virtual;

  function EscapeString();

  procedure CreateClassDecl(); virtual;

  procedure CheckDatadict;

  procedure CreateFooter();

  procedure CreateHeader();

  function DoTable(); virtual;

  procedure CreateTableCode();

  procedure AddTableVars();

  procedure AddDomainVars();

  procedure AddSequenceVars();

  procedure DoTableHeader();

  procedure DoTableFooter();

  function DoField(); virtual;

  procedure CreateFieldCode();

  function DoIndex(); virtual;

  procedure CreateIndexCode();

  procedure WriteSequences();

  function DoSequence(); virtual;

  procedure CreateSequenceCode();

  procedure WriteDomains();

  function DoDomain(); virtual;

  procedure CreateDomainCode();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure CreateCode();

  property DataDictionary: TFPDataDictionary; [rw]

published

  property Options: TDDCodeGenOptions; [rw]

  property Tables: TStrings; [rw]

  property IndentSize: Integer; [rw]

  property DDVarName: string; [rw]

  property ClassName: string; [rw]

end;

TFPDDPopulateCodeGenerator

TObject