瀏覽代碼

* Fix patch, unit was not recompiled on last make.. :/

git-svn-id: trunk@38007 -
michael 8 年之前
父節點
當前提交
37a9467603
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/fcl-res/src/groupresource.pp

+ 1 - 1
packages/fcl-res/src/groupresource.pp

@@ -86,7 +86,7 @@ begin
   fItemList:=TFPList.Create;
   fItemList:=TFPList.Create;
   //read NewHeader from resource
   //read NewHeader from resource
   RawData.Position:=0;
   RawData.Position:=0;
-  if RawData.Read(nh,sizeof(nh))<>nh then 
+  if RawData.Read(nh,sizeof(nh))<>sizeof(nh) then 
     exit;
     exit;
   {$IFDEF ENDIAN_BIG}
   {$IFDEF ENDIAN_BIG}
   nh.reserved:=SwapEndian(nh.reserved);
   nh.reserved:=SwapEndian(nh.reserved);