瀏覽代碼

* Fix compilation

Michaël Van Canneyt 1 年之前
父節點
當前提交
37f145707a
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/vcl-compat/src/system.ioutils.pp

+ 1 - 1
packages/vcl-compat/src/system.ioutils.pp

@@ -2210,7 +2210,7 @@ var
 begin
   Result:=false;
   CurSrcDir:=ExpandFileName(DirectoryName);
-  CurSrcDir:=IncludTrailingPathDelimiter(CurSrcDir);
+  CurSrcDir:=IncludeTrailingPathDelimiter(CurSrcDir);
   if FindFirst(CurSrcDir+AllFilesMask,DeleteMask,FileInfo)=0 then
     Try
       repeat