TBufferedReader

type TBufferedReader = class(AReaderProxy)

protected

  FBufferSize: Integer;

  FPos: Int64;

  FBuffer: Pointer;

  FBufUsed: Integer;

  FBufPos: Integer;

  function GetPosition; override;

  procedure SetPosition(); override;

  function GetSize; override;

  function FillBuf;

  procedure BufferByte;

  function PosBuf();

public

  constructor Create();

  destructor Destroy; override;

  function Read(); override;

  function EOF; override;

  function ReadByte; override;

  function PeekByte; override;

  procedure Skip(); override;

  function Locate(); override;

  property BufferSize: Integer; [r]

  procedure InvalidateBuffer;

end;

TBufferedReader

AReaderProxy

AReaderEx

AReader

TObject