From 1ba38d5b87e7f93bc2e6d850fcb9f78c5c85a4f7 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Fri, 19 Jan 2018 08:35:30 +0000
Subject: [PATCH] * Do not raise exception unless needed

git-svn-id: trunk@38006 -
---
 packages/fcl-res/src/groupresource.pp | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/packages/fcl-res/src/groupresource.pp b/packages/fcl-res/src/groupresource.pp
index aee0b5c6db..97439f0367 100644
--- a/packages/fcl-res/src/groupresource.pp
+++ b/packages/fcl-res/src/groupresource.pp
@@ -86,11 +86,8 @@ begin
   fItemList:=TFPList.Create;
   //read NewHeader from resource
   RawData.Position:=0;
-  try
-    RawData.ReadBuffer(nh,sizeof(nh));
-  except
-    on e : EReadError do exit; //empty stream
-  end;
+  if RawData.Read(nh,sizeof(nh))<>nh then 
+    exit;
   {$IFDEF ENDIAN_BIG}
   nh.reserved:=SwapEndian(nh.reserved);
   nh.restype:=SwapEndian(nh.restype);