TPascalCodeGenerator

type TPascalCodeGenerator = class(TComponent)

public

  constructor Create(); override;

Create new Pascal code generator instance

  destructor Destroy; override;

Destroy Pascal code generator instance

  procedure EnsureSection();

Ensure code is in specified section

  procedure PushSection();

Push section onto section stack

  function PopSection;

Pop section from section stack

  procedure CreateHeader; virtual;

Create unit header section

  procedure CreateUnitClause; virtual;

Create unit clause

  procedure Indent;

Increase indentation level

  procedure Undent;

Decrease indentation level

  function IsKeyWord(); virtual;

Check if string is Pascal keyword

  function EscapeKeyWord(); virtual;

Escape Pascal keyword if needed

  function MakePascalString();

Convert string to Pascal string literal

  function PrettyPrint();

Format string with proper capitalization

  procedure AddLn();

Add line to source code with current indentation

  procedure Comment();

Add comment to source code

  procedure ClassComment(); virtual;

Add formatted class comment header

  procedure ClassHeader(); deprecated ;

Add class header comment (deprecated)

  procedure SimpleMethodBody(); virtual;

Generate simple method body

  procedure SaveToStream();

Save generated source code to stream

  procedure SaveToFile();

Save generated source code to file

  property Source: TStrings; [r]

Generated source code string list

  property CurrentSection: TCodeSection; [rw]

Current code section type

published

  property OutputUnitName: string; [rw]

Name of the output unit

  property ExtraUnits: string; [rw]

Additional units for uses clause

  property DottedExtraUnits: string; [rw]

Additional units for dotted uses clause

  property DottedDefine: string; [rw]

Compiler define for dotted units

  property DottedUnitsSupport: TDottedUnitsSupport; [rw]

Level of dotted units support

  property LicenseText: TStrings; [rw]

License text for header comment

  property Switches: TStrings; [rw]

Compiler switches for the unit

  property OnLog: TCodeGeneratorLogEvent; [rw]

Event handler for log messages

  property AddTimeStamp: Boolean; [rw]

Whether to include timestamp in header

  property KeywordSuffix: string; [rw]

Suffix for escaped keywords

  property KeywordPrefix: string; [rw]

Prefix for escaped keywords

end;

TPascalCodeGenerator

Pascal code generator class

TComponent

TPersistent,IUnknown,IInterfaceComponentReference

TObject,IFPObserved

TCodeSection

Pascal code section types

TCodeGeneratorLogEvent

Event handler type for logging messages