ソースを参照

* add filename before eparsererror and reraise closes 0040958

marcoonthegit 1 年間 前
コミット
4300e2cfcc
1 ファイル変更9 行追加1 行削除
  1. 9 1
      utils/fpcres/sourcehandler.pas

+ 9 - 1
utils/fpcres/sourcehandler.pas

@@ -114,7 +114,15 @@ begin
           TRCResourceReader(aReader).RCDefines.Assign(fRCDefines);
           SetCurrentDir(ExtractFilePath(ExpandFileName(fFileList[i])));
         end;
-        tmpres.LoadFromStream(aStream,aReader);
+        try
+          tmpres.LoadFromStream(aStream,aReader);
+        except
+           on e :EParserError do
+              begin
+                e.message:=fFileList[i]+': '+e.message;
+              raise;
+            end;
+        end;
         aResources.MoveFrom(tmpres);
         Messages.DoVerbose('Resource information read');
       finally