TplBufferedStream

type TplBufferedStream = class(TStream)

protected

  procedure bsSetStream();

  procedure bsInitForNewStream; virtual;

  function bsReadChar();

  procedure bsReadFromStream;

  procedure bsWriteToStream;

  procedure SetSize(); override;

public

  constructor Create();

  constructor CreateEmpty;

  destructor Destroy; override;

  function Read(); override;

  function Seek(); override;

  function Write(); override;

  property FastSize: Int64; [r]

  property Stream: TStream; [rw]

end;

TplBufferedStream

TObject