mirror of
https://github.com/cheat-engine/cheat-engine
synced 2026-08-15 02:26:08 -04:00
35 lines
687 B
ObjectPascal
35 lines
687 B
ObjectPascal
|
unit MemoryStreamReader;
|
||
|
|
|
||
|
|
{
|
||
|
|
Implements the TMemoryStreamReader object.
|
||
|
|
It's basically a memorystream that can not write. It's main purpose is to provide a seperate read pointer for a memorystream object
|
||
|
|
|
||
|
|
One requirement is that the memorystream object does not get written to while this object exists
|
||
|
|
}
|
||
|
|
{$mode delphi}
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
Classes, SysUtils;
|
||
|
|
|
||
|
|
type
|
||
|
|
TMemoryStreamReader=class(TCustomMemoryStream)
|
||
|
|
private
|
||
|
|
protected
|
||
|
|
public
|
||
|
|
constructor create(ms: TCustomMemoryStream);
|
||
|
|
end;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
|
||
|
|
constructor TMemoryStreamReader.create(ms: TCustomMemoryStream);
|
||
|
|
begin
|
||
|
|
inherited create;
|
||
|
|
SetPointer(ms.Memory, ms.size);
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|
||
|
|
|