Class TFilter (unit Filters) |
Inherits from
TStream
constructor Create(AStream: TStream);
-
****************************** TFilter ***************************************
destructor Destroy;
function Get: TStreamable;
Get returns an TStreamable instance which was read from the stream calls SetStream
procedure Put(Instance: TStreamable);
Put writes the instance to the stream
function Read(var Buffer; Count: Longint): Longint;
Read wraps the Stream's read method
function ReadStr: String;
Reads a PASCAL style string (length byte followed by length chars)
from Stream's using the read method
function Seek(Offset: Longint; Origin: Word): Longint;
Seek wraps the Stream's seek method
procedure Truncate;
Truncate is not implemented, but gives a common interface to truncate
at the current position Allright even if FStream = nil
function Write(const Buffer; Count: Longint): Longint;
Write wraps the Stream's Write method
procedure WriteStr(const Value: string);
procedure RegisterInstance(Instance: TStreamable);
procedure SetStream(Value: TStream);
property OwnsStream : Boolean
property Stream : TStream
FOwnsStream : Boolean;
FStream : TStream;
constructor Create(AStream: TStream);
****************************** TFilter ***************************************
destructor Destroy;
function Get: TStreamable;
Get returns an TStreamable instance which was read from the stream
calls SetStream
procedure Put(Instance: TStreamable);
Put writes the instance to the stream
function Read(var Buffer; Count: Longint): Longint;
Read wraps the Stream's read method
function ReadStr: String;
Reads a PASCAL style string (length byte followed by length chars)
from Stream's using the read method
function Seek(Offset: Longint; Origin: Word): Longint;
Seek wraps the Stream's seek method
procedure Truncate;
Truncate is not implemented, but gives a common interface to truncate
at the current position
Allright even if FStream = nil
function Write(const Buffer; Count: Longint): Longint;
Write wraps the Stream's Write method
procedure WriteStr(const Value: string);
procedure RegisterInstance(Instance: TStreamable);
procedure SetStream(Value: TStream);
property OwnsStream : Boolean
property Stream : TStream
FOwnsStream : Boolean;
FStream : TStream;