paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 23:33:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix for buggy FileExists and DirectoryExists

Browse Source 
git-svn-id: trunk@2684 -
This commit is contained in:
Tomas Hajny 2006-02-26 00:28:26 +00:00
parent d6cebefa88
commit 3114cbe049
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/os2/sysutils.pp
View File

@ -549,7 +549,8 @@ var
RC: longint;
begin
FileExists:=False;
if FindFirst (FileName, faAnyFile, SR)=0 then FileExists:=True;
if FindFirst (FileName, faAnyFile and not (faDirectory), SR) = 0
then FileExists := True;
FindClose(SR);
end;
@ -768,7 +769,8 @@ function DirectoryExists (const Directory: string): boolean;
var
SR: TSearchRec;
begin
DirectoryExists:=FindFirst(Directory, faDirectory, SR)=0;
DirectoryExists := (FindFirst (Directory, faAnyFile, SR) = 0) and
(SR.Attr and faDirectory <> 0);
FindClose(SR);
end;