TMemoryReader

type TMemoryReader = class(AReaderEx)

protected

  FData: Pointer;

  FSize: Integer;

  FPos: Integer;

  function GetPosition; override;

  procedure SetPosition(); override;

  function GetSize; override;

public

  constructor Create();

  property Data: Pointer; [r]

  property Size: Integer; [r]

  procedure SetData();

  function Read(); override;

  function EOF; override;

  function ReadByte; override;

  function ReadLongInt;

  function ReadInt64;

  function PeekByte; override;

  function Match(); override;

  procedure Skip(); override;

end;

TMemoryReader

AReaderEx

AReader

TObject