[Jcl-checkins-diff] SF.net SVN: jcl: [1618] trunk/jcl/source/common/JclStreams.pas

[<ob...@us...>]

Revision: 1618
Author:   obones
Date:     2006-04-24 23:42:52 -0700 (Mon, 24 Apr 2006)
ViewCVS:  http://svn.sourceforge.net/jcl/?rev=1618&view=rev

Log Message:
-----------
Now compiles again.

Modified Paths:
--------------
    trunk/jcl/source/common/JclStreams.pas
Modified: trunk/jcl/source/common/JclStreams.pas
===================================================================
--- trunk/jcl/source/common/JclStreams.pas	2006-04-24 08:20:33 UTC (rev 1617)
+++ trunk/jcl/source/common/JclStreams.pas	2006-04-25 06:42:52 UTC (rev 1618)
@@ -174,6 +174,11 @@
 // a stream which stays empty no matter what you do
 // so it is a Unix /dev/null equivalent
 
+procedure TJclEmptyStream.SetSize(NewSize: Longint); 
+begin
+  // nothing
+end;
+
 procedure TJclEmptyStream.SetSize(const NewSize: Int64);
 begin
   // nothing
@@ -191,15 +196,6 @@
   Result := 0;
 end;
 
-function TJclEmptyStream.Seek(Offset: Longint; Origin: Word): Longint;
-begin
-  if (Offset <> 0) or not (Origin in [soFromBeginning, soFromCurrent, soFromEnd]) then
-    // seeking to anywhere except the position 0 is an error
-    Result := -1
-  else
-    Result := 0;
-end;
-
 function TJclEmptyStream.Seek(const Offset: Int64; Origin: TSeekOrigin): Int64;
 begin
   if Offset <> 0 then


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.