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

* ExistsDir must also find hidden directories, so that the local configuration files are found

Browse Source 
git-svn-id: trunk@12462 -
This commit is contained in:
joost 2009-01-01 21:34:41 +00:00
parent fe3263eb08
commit c9b5621675
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/wutils.pas
View File

@ -1198,7 +1198,7 @@ function ExistsDir(const DirName: string): boolean;
var var
Dir : SearchRec; Dir : SearchRec;
begin begin
Dos.FindFirst(TrimEndSlash(DirName),Directory,Dir); Dos.FindFirst(TrimEndSlash(DirName),anyfile,Dir);
{ if a file is found it is also reported { if a file is found it is also reported
at least for some Dos version at least for some Dos version
so we need to check the attributes PM } so we need to check the attributes PM }