type
TBytesStream = class(TMemoryStream)
private
FBytes: TBytes;
FCapacity: Longint;
FSize: Longint;
protected
function Realloc(var NewCapacity: Longint): Pointer; override;
public
constructor Create(const ABytes: TBytes); overload;
property Bytes: TBytes read FBytes;
end;
Full unit published on Github
No comments:
Post a Comment