mirror of
https://github.com/cheat-engine/cheat-engine
synced 2026-08-15 02:26:08 -04:00
26 lines
344 B
ObjectPascal
26 lines
344 B
ObjectPascal
unit NullStream;
|
|
|
|
{$mode delphi}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils;
|
|
|
|
type TNullStream=class(TStream)
|
|
private
|
|
public
|
|
function Write(const Buffer; Count: Longint): Longint; override;
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
function TNullStream.Write(const Buffer; Count: Longint): Longint;
|
|
begin
|
|
result:=count;
|
|
end;
|
|
|
|
|
|
end.
|
|
|