TPasWriter

type TPasWriter = class

protected

  procedure DisableHintsWarnings;

  procedure PrepareDeclSectionInStruct();

  procedure MaybeSetLineElement();

  function GetExpr(); virtual;

  function HasOption();

  function NotOption();

  function PostProcessLine(); virtual;

  function GetLineNumberComment; virtual;

  procedure ResetIndent;

  procedure IncIndent;

  procedure DecIndent;

  procedure IncDeclSectionLevel;

  procedure DecDeclSectionLevel;

  procedure PrepareDeclSection();

  procedure Add();

  procedure AddLn();

  procedure AddProcArgs(); virtual;

public

  constructor Create(); virtual;

  destructor Destroy; override;

  procedure WriteMembers(); virtual;

  procedure AddForwardClasses(); virtual;

  procedure WriteResourceString(); virtual;

  procedure WriteEnumType(); virtual;

  procedure WriteElement(); virtual;

  procedure WriteType(); virtual;

  procedure WriteProgram(); virtual;

  procedure WriteLibrary(); virtual;

  procedure WriteUnit(); virtual;

  procedure WriteModule(); virtual;

  procedure WriteSection(); virtual;

  procedure WriteUsesList(); virtual;

  procedure WriteClass(); virtual;

  procedure WriteConst(); virtual;

  procedure WriteVariable(); virtual;

  procedure WriteArgument(); virtual;

  procedure WriteDummyExternalFunctions(); virtual;

  procedure WriteOverloadedProc(); virtual;

  procedure WriteAliasType(); virtual;

  procedure WriteRecordType(); virtual;

  procedure WriteArrayType(); virtual;

  procedure WriteProcType(); virtual;

  procedure WriteProcDecl(); virtual;

  procedure WriteProcImpl();

  procedure WriteProperty(); virtual;

  procedure WriteImplBlock(); virtual;

  procedure WriteImplElement(); virtual;

  procedure WriteImplCommand(); virtual;

  procedure WriteImplCommands(); virtual;

  procedure WriteImplIfElse(); virtual;

  procedure WriteImplCaseOf(); virtual;

  procedure WriteImplCaseStatement(); virtual;

  procedure WriteImplForLoop(); virtual;

  procedure WriteImplWhileDo(); virtual;

  procedure WriteImplRepeatUntil(); virtual;

  procedure WriteImplTryFinallyExcept(); virtual;

  procedure WriteImplRaise(); virtual;

  procedure WriteImplGoto(); virtual;

  procedure WriteImplAssign(); virtual;

  procedure WriteImplSimple(); virtual;

  procedure WriteImplExceptOn(); virtual;

  procedure wrt(); deprecated ;

  procedure wrtln(); deprecated ;

  property Stream: TStream; [r]

published

  property OnUnitAlias: TOnUnitAlias; [rw]

  property Options: TPasWriterOptions; [rw]

  property IndentSize: Integer; [rw]

  property LineEnding: string; [rw]

  property ExtraUnits: string; [rw]

  property ForwardClasses: TStrings; [rw]

  property LineNumberWidth: Integer; [rw]

end;

TPasWriter

TObject