Browse Source

properly handle resource files with spaces in their path

git-svn-id: branches/resources@10507 -
giulio 17 years ago
parent
commit
5af2fdb049
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/comprsrc.pas

+ 1 - 1
compiler/comprsrc.pas

@@ -338,7 +338,7 @@ procedure TWinLikeResourceFile.Collect(const fn: ansistring);
 begin
 begin
   if fResScript=nil then
   if fResScript=nil then
     fResScript:=TScript.Create(fScriptName);
     fResScript:=TScript.Create(fScriptName);
-  fResScript.Add(fn);
+  fResScript.Add(MaybeQuoted(fn));
   inc(fCollectCount);
   inc(fCollectCount);
 end;
 end;