瀏覽代碼

* Strip off path from resource file name when resource file is copied to output directory (fixes #11022)

git-svn-id: branches/resources@10509 -
giulio 17 年之前
父節點
當前提交
db2193cdc9
共有 1 個文件被更改,包括 2 次插入1 次删除
  1. 2 1
      compiler/comprsrc.pas

+ 2 - 1
compiler/comprsrc.pas

@@ -414,7 +414,8 @@ begin
             begin
               { Copy .res file to units output dir. Otherwise .res file will not be found
                 when only compiled units path is available }
-              if not CopyResFile(s,ExtractFileName(res.FPStr)) then exit;
+              res.FPStr:=ExtractFileName(res.FPStr); //store file name only in PPU.
+              if not CopyResFile(s,res.FPStr) then exit;
             end;
         end
       else