AWriterEx

type AWriterEx = class(AWriter)

protected

  function GetPosition; override;

  procedure SetPosition(); override;

  function GetSize; override;

  procedure SetSize(); override;

  procedure SetAsStringB(); virtual;

  procedure SetAsStringU(); virtual;

public

  procedure RaiseWriteError;

  procedure Append;

  procedure Truncate; virtual;

  procedure Clear; virtual;

  property AsStringB: RawByteString; [w]

  property AsStringU: UnicodeString; [w]

  procedure WriteBuffer();

  procedure WriteCharA(); virtual;

  procedure WriteCharW(); virtual;

  procedure WriteStrA(); virtual;

  procedure WriteStrB(); virtual;

  procedure WriteStrU(); virtual;

  procedure WriteByte(); virtual;

  procedure WriteWord(); virtual;

  procedure WriteLongWord();

  procedure WriteLongInt();

  procedure WriteInt64();

  procedure WriteSingle();

  procedure WriteDouble();

  procedure WriteFloat();

  procedure WritePackedAnsiString();

  procedure WritePackedRawByteString();

  procedure WritePackedUnicodeString();

  procedure WritePackedString();

  procedure WritePackedAnsiStringArray();

  procedure WritePackedUnicodeStringArray();

  procedure WritePackedStringArray();

  procedure WriteBufLine();

  procedure WriteLineB();

end;

AWriterEx

AWriter

TObject