TLRSObjectWriter

type TLRSObjectWriter = class(TAbstractObjectWriter)

protected

  procedure FlushBuffer;

  procedure WriteValue();

  procedure WriteStr();

  procedure WriteIntegerContent();

  procedure WriteWordContent();

  procedure WriteInt64Content();

  procedure WriteSingleContent();

  procedure WriteDoubleContent();

  procedure WriteExtendedContent();

  procedure WriteCurrencyContent();

  procedure WriteWideStringContent();

  procedure WriteWordsReversed();

  procedure WriteNulls();

public

  constructor Create(); virtual;

  destructor Destroy; override;

  procedure BeginCollection; override;

  procedure BeginComponent(); override;

  procedure BeginList; override;

  procedure EndList; override;

  procedure BeginProperty(); override;

  procedure EndProperty; override;

  function GetStackPath();

  procedure Write(); override;

  procedure WriteBinary(); override;

  procedure WriteBoolean(); override;

  procedure WriteFloat(); override;

  procedure WriteSingle(); override;

  procedure WriteCurrency(); override;

  procedure WriteDate(); override;

  procedure WriteIdent(); override;

  procedure WriteInteger(); override;

  procedure WriteMethodName(); override;

  procedure WriteSet(); override;

  procedure WriteString(); override;

  procedure WriteWideString(); override;

  procedure WriteUnicodeString(); override;

  property InstanceStackPointer: Integer; [r]

  property InstanceStack: TPersistent; [r]

  property WriteEmptyInheritedChilds: Boolean; [rw]

end;

TLRSObjectWriter

TAbstractObjectWriter

TObject