* Error when seek fails

git-svn-id: trunk@47056 -

rtl/objpas/sysconst.pp

@@ -100,6 +100,7 @@ const
   SSafecallException     = 'Exception in safecall method';
   SiconvError            = 'iconv error';
   SThreadError           = 'Thread error';
+  SSeekFailed            = 'Seek operation failed';
 
   STooManyOpenFiles      = 'Too many open files';
   SUnKnownRunTimeError   = 'Unknown Run-Time error : %3.3d';

rtl/objpas/sysutils/filutil.inc

@@ -711,7 +711,10 @@ Var
 
 begin
   aLen:=FileSeek(aHandle,0,fsFromEnd);
-  FileSeek(aHandle,0,fsFromBeginning);
+  if aLen<0 then
+    Raise EInOutError.Create(SSeekFailed);
+  if FileSeek(aHandle,0,fsFromBeginning)<0 then
+    Raise EInOutError.Create(SSeekFailed);
   SetLength(Result,aLen);
   aOffset:=0;
   Repeat