瀏覽代碼

* Fix to allow / instead of " fexpand.inc

git-svn-id: trunk@2746 -
Tomas Hajny 19 年之前
父節點
當前提交
ccbc7717cc
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      rtl/inc/fexpand.inc

+ 1 - 1
rtl/inc/fexpand.inc

@@ -133,7 +133,7 @@ begin
             Pa [I] := DirectorySeparator
             Pa [I] := DirectorySeparator
       end
       end
     else
     else
-      if DirectorySeparator = '\' then
+      if DirectorySeparator = '/' then
     {Allow backslash as slash}
     {Allow backslash as slash}
         begin
         begin
           for I := 1 to Length (Pa) do
           for I := 1 to Length (Pa) do