paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 09:29:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Added TOwnerStream

Browse Source
This commit is contained in:
michael 2005-01-09 13:15:37 +00:00
parent affeb1c46e
commit 55e42ab72f
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/objpas/classes/streams.inc
View File

@ -784,10 +784,28 @@ begin
Write:=0;
end;
{****************************************************************************}
{* TOwnerStream *}
{****************************************************************************}
constructor TOwnerStream.Create(ASource: TStream);
begin
FSource:=ASource;
end;
destructor TOwnerStream.Destroy;
begin
If FOwner then
FreeAndNil(FSource);
inherited Destroy;
end;
{
$Log$
Revision 1.2 2003-10-30 16:30:53 peter
Revision 1.3 2005-01-09 13:15:37 michael
+ Added TOwnerStream
Revision 1.2 2003/10/30 16:30:53 peter
* merged copyfrom with 0
Revision 1.3 2003/10/28 22:04:29 michael