TReaderWriter

type TReaderWriter = class(AStream)

protected

  FReader: AReaderEx;

  FWriter: AWriterEx;

  FReaderOwner: Boolean;

  FWriterOwner: Boolean;

  procedure RaiseNoReaderError;

  procedure RaiseNoWriterError;

  function GetPosition; override;

  procedure SetPosition(); override;

  function GetSize; override;

  procedure SetSize(); override;

  function GetReader; override;

  function GetWriter; override;

public

  constructor Create();

  destructor Destroy; override;

  property Reader: AReaderEx; [r]

  property Writer: AWriterEx; [r]

  property ReaderOwner: Boolean; [rw]

  property WriterOwner: Boolean; [rw]

  function Read(); override;

  function Write(); override;

  function EOF; override;

  procedure Truncate; override;

end;

TReaderWriter

AStream

TObject