TCompWriterPas

type TCompWriterPas = class

protected

  procedure AddToAncestorList(); virtual;

  procedure DetermineAncestor(); virtual;

  procedure SetNeededUnits(); virtual;

  procedure SetRoot(); virtual;

  procedure WriteComponentData(); virtual;

  procedure WriteChildren(); virtual;

  procedure WriteProperty(); virtual;

  procedure WriteProperties(); virtual;

  procedure WriteDefineProperties(); virtual;

  procedure WriteCollection(); virtual;

  function ShortenFloat(); virtual;

public

  constructor Create(); virtual;

  destructor Destroy; override;

  procedure WriteDescendant(); virtual;

  procedure WriteComponentCreate(); virtual;

  procedure WriteComponent(); virtual;

  procedure WriteIndent; virtual;

  procedure Write(); virtual;

  procedure WriteLn; virtual;

  procedure WriteStatement(); virtual;

  procedure WriteAssign(); virtual;

  procedure WriteWithDo(); virtual;

  procedure WriteWithEnd; virtual;

  function GetComponentPath(); virtual;

  function GetBoolLiteral(); virtual;

  function GetCharLiteral(); virtual;

  function GetWideCharLiteral(); virtual;

  function GetStringLiteral(); virtual;

  function GetWStringLiteral(); virtual;

  function GetFloatLiteral(); virtual;

  function GetCurrencyLiteral(); virtual;

  function GetEnumExpr(); virtual;

  function GetVersionStatement; virtual;

  function CreatedByAncestor(); virtual;

  procedure AddNeededUnit(); virtual;

  procedure Indent; virtual;

  procedure Unindent; virtual;

  property Stream: TStream; [r]

  property Root: TComponent; [rw]

  property LookupRoot: TComponent; [r]

  property Ancestor: TPersistent; [rw]

  property RootAncestor: TComponent; [rw]

  property Parent: TComponent; [r]

  property OnFindAncestor: TCWPFindAncestorEvent; [rw]

  property OnGetMethodName: TCWPGetMethodName; [rw]

  property PropertyPath: string; [r]

  property CurIndent: Integer; [rw]

  property IndentStep: Integer; [rw]

  property Options: TCWPOptions; [rw]

  property IgnoreChildren: Boolean; [rw]

  property OnGetParentProperty: TCWPGetParentPropertyEvent; [rw]

  property OnWriteMethodProperty: TWriteMethodPropertyEvent; [rw]

  property OnWriteStringProperty: TReadWriteStringPropertyEvent; [rw]

  property OnDefineProperties: TCWPDefinePropertiesEvent; [rw]

  property LineEnding: string; [rw]

  property AssignOp: string; [rw]

  property SignatureBegin: string; [rw]

  property SignatureEnd: string; [rw]

  property AccessClass: string; [rw]

  property ExecCustomProc: string; [rw]

  property ExecCustomProcUnit: string; [rw]

  property MaxColumn: Integer; [rw]

  property NeedAccessClass: Boolean; [rw]

  property NeededUnits: TStrings; [rw]

end;

TCompWriterPas

Serializes a component to Pascal code.

TObject