paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-15 16:09:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Fixed private seeksupport stuff

Browse Source
This commit is contained in:
michael 2003-10-28 22:04:29 +00:00
parent 7e450e736b
commit 874ae30de5
1 changed files with 4 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
fcl/classes/streams.inc
View File

@ -15,25 +15,6 @@
{* TStream *} {* TStream *}
{****************************************************************************} {****************************************************************************}
Function TStream.GetPositionReadable : Boolean;
begin
Result:=SeekSupport in [ssFull,ssForwardOnly]
end;
Function TStream.GetSizeReadable : Boolean;
begin
Result:=SeekSupport=ssFull;
end;
Function Tstream.GetSizeWritable : Boolean;
begin
Result:=true; // For Delphi compatibility.
end;
{$ifdef seek64bit} {$ifdef seek64bit}
function TStream.GetPosition: Int64; function TStream.GetPosition: Int64;
@ -806,7 +787,10 @@ end;
{ {
$Log$ $Log$
Revision 1.2 2003-10-26 14:52:29 michael Revision 1.3 2003-10-28 22:04:29 michael
+ Fixed private seeksupport stuff
Revision 1.2 2003/10/26 14:52:29 michael
+ Fixed TStream.CopyFrom with Count=0 + Fixed TStream.CopyFrom with Count=0
Revision 1.13 2003/07/26 16:20:50 michael Revision 1.13 2003/07/26 16:20:50 michael