浏览代码

* typo fix in previous commit relating to #40558

marcoonthegit 1 年之前
父节点
当前提交
d91847f39c
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      rtl/objpas/sysutils/disk.inc

+ 1 - 1
rtl/objpas/sysutils/disk.inc

@@ -110,7 +110,7 @@ begin
   Result:=False;
   Result:=False;
   ADrv:=ExtractFileDrive(Dir);
   ADrv:=ExtractFileDrive(Dir);
   if (ADrv<>'') and
   if (ADrv<>'') and
-     (not DirectoryExists(ADrv)+DirectorySeparator)
+     (not DirectoryExists(ADrv+DirectorySeparator))
      {$IFNDEF FORCEDIR_NO_UNC_SUPPORT} and (not IsUncDrive(ADrv)){$ENDIF} then
      {$IFNDEF FORCEDIR_NO_UNC_SUPPORT} and (not IsUncDrive(ADrv)){$ENDIF} then
     Exit;
     Exit;
   if Dir='' then
   if Dir='' then