diff options
Diffstat (limited to '')
-rw-r--r-- | src/base/UPath.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/base/UPath.pas b/src/base/UPath.pas index ba5daf59..77ccd65d 100644 --- a/src/base/UPath.pas +++ b/src/base/UPath.pas @@ -1028,7 +1028,7 @@ function TPathImpl.IsFile(): boolean; begin // note the different specifications of FileExists() on Win32 <> Unix {$IFDEF MSWINDOWS} - Result := FileSystem.FileExists(Self); + Result:= FileSystem.FileExists(Self); {$ELSE} Result := Exists() and not IsDirectory(); {$ENDIF} @@ -1183,7 +1183,7 @@ var SaveMode: word; begin // save changes in write mode (= not read-only mode) - if ((fMode and 3) <> fmOpenRead) then + if ((fMode) <> fmOpenRead) then begin if (fMode = fmCreate) then SaveMode := fmCreate |