paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 18:30:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ CustomMemoryStream.getsize overridden

Browse Source
This commit is contained in:
michael 2005-01-19 19:57:57 +00:00
parent 212676c96c
commit ec7c4a2ff4
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -513,6 +513,13 @@ begin
FSize:=ASize; FSize:=ASize;
end; end;
function TCustomMemoryStream.GetSize: Int64;
begin
Result:=FSize;
end;
function TCustomMemoryStream.Read(var Buffer; Count: Longint): Longint; function TCustomMemoryStream.Read(var Buffer; Count: Longint): Longint;
@ -654,7 +661,6 @@ begin
FPosition:=FSize; FPosition:=FSize;
end; end;
function TMemoryStream.Write(const Buffer; Count: Longint): Longint; function TMemoryStream.Write(const Buffer; Count: Longint): Longint;
Var NewPos : Longint; Var NewPos : Longint;
@ -803,7 +809,10 @@ end;
{ {
$Log$ $Log$
Revision 1.5 2005-01-19 09:09:50 michael Revision 1.6 2005-01-19 19:57:57 michael
+ CustomMemoryStream.getsize overridden
Revision 1.5 2005/01/19 09:09:50 michael
* Patch from Peter to fix 64bit issue in tstream.seek() * Patch from Peter to fix 64bit issue in tstream.seek()
Revision 1.4 2005/01/18 22:31:44 michael Revision 1.4 2005/01/18 22:31:44 michael