TPascalCodeGenerator

type TPascalCodeGenerator = class(TComponent)

protected

  procedure DoLog();

  function BaseUnits; virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure EnsureSection();

  procedure PushSection();

  function PopSection;

  procedure CreateHeader; virtual;

  procedure CreateUnitClause; virtual;

  procedure Indent;

  procedure Undent;

  function IsKeyWord(); virtual;

  function EscapeKeyWord(); virtual;

  function MakePascalString();

  function PrettyPrint();

  procedure AddLn();

  procedure Comment();

  procedure ClassComment(); virtual;

  procedure ClassHeader(); deprecated ;

  procedure SimpleMethodBody(); virtual;

  procedure SaveToStream();

  procedure SaveToFile();

  property Source: TStrings; [r]

  property CurrentSection: TCodeSection; [rw]

published

  property OutputUnitName: string; [rw]

  property ExtraUnits: string; [rw]

  property LicenseText: TStrings; [rw]

  property Switches: TStrings; [rw]

  property OnLog: TCodeGeneratorLogEvent; [rw]

  property AddTimeStamp: Boolean; [rw]

  property KeywordSuffix: string; [rw]

  property KeywordPrefix: string; [rw]

end;

TPascalCodeGenerator

TObject