* make TProxyStream.Check an abstract method; as it is right now one had to override it anyway because it always raised an exception

git-svn-id: trunk@48097 -

rtl/objpas/classes/classesh.inc

@@ -1139,7 +1139,7 @@ type
     function Read(var Buffer; Count: Longint): Longint; override;
     function Write(const Buffer; Count: Longint): Longint; override;
     function Seek(const Offset: int64; Origin: TSeekOrigin): int64; override;
-    procedure Check(err:integer); virtual;
+    procedure Check(err:integer); virtual; abstract;
   end;
 
   { TOwnerStream }

rtl/objpas/classes/streams.inc

@@ -2038,12 +2038,4 @@ begin
   Result := FStream;
 end;
 
-procedure TProxyStream.Check(err:integer);
-var e : EInOutError;
-begin
-  e:= EInOutError.Create('Proxystream.Check');
-  e.Errorcode:=err;
-  raise e;
-end;
-
 {$pop}