twriter

type twriter = class(tfiler)

public

  constructor Create();

  destructor Destroy; override;

  procedure DefineProperty(); override;

  procedure DefineBinaryProperty(); override;

  procedure Write(); virtual;

  procedure WriteBoolean();

  procedure WriteCollection();

  procedure WriteComponent();

  procedure WriteChar();

  procedure WriteWideChar();

  procedure WriteDescendent();

  procedure WriteFloat();

  procedure WriteSingle();

  procedure WriteDate();

  procedure WriteCurrency();

  procedure WriteIdent();

  procedure WriteInteger();

  procedure writeset();

  procedure writeenum();

  procedure WriteListBegin;

  procedure WriteListEnd;

  procedure WriteRootComponent();

  procedure WriteString();

  procedure Writeutf8String();

  procedure WriteWideString();

  procedure WriteUnicodeString();

  procedure WriteVariant();

  property RootAncestor: tcomponent; [rw]

  property OnFindAncestor: TFindAncestorEvent; [rw]

  property OnWriteMethodProperty: TWriteMethodPropertyEvent; [rw]

  property OnWriteStringProperty: TReadWriteStringPropertyEvent; [rw]

  property Driver: TAbstractObjectWriter; [r]

  property PropertyPath: string; [r]

end;

twriter

tfiler

TObject