TCustomPasGenerator

type TCustomPasGenerator = class(TInterfacedObject,IInterface,IGenerator,IPasGenerator)

protected

  procedure Error();

  procedure Line();

  procedure Indent;

  procedure Undent;

  procedure SetPreferedShortNames();

  function GetPreferedShortNames;

  procedure GenerateEnum();

  procedure GenerateComplex();

  function GetUnitName;

  procedure SetUnitname();

  procedure StartInterface; virtual;

  procedure Execute();

  procedure Prepare(); virtual;

  property Options: TPasGeneratorOptions; [r]

public

  constructor Create();

  destructor Destroy; override;

end;

TCustomPasGenerator

TObject,IInterface,IGenerator,IPasGenerator