paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 13:10:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Changed ImplicitDir default from False to True

Browse Source 
git-svn-id: trunk@17735 -
This commit is contained in:
michael 2011-06-13 09:07:17 +00:00
parent 3eaf8df446
commit a07b14853a
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/sysutils/filutilh.inc
View File

@ -101,7 +101,7 @@ Function FileSetAttr (Const Filename : String; Attr: longint) : Longint;
Function DeleteFile (Const FileName : String) : Boolean;
Function RenameFile (Const OldName, NewName : String) : Boolean;
Function FileSearch (Const Name, DirList : String; Options : TFileSearchoptions = []) : String;
Function FileSearch (Const Name, DirList : String; Options : TFileSearchoptions = [sfoImplicitCurrentDir]) : String;
Function FileSearch (Const Name, DirList : String; ImplicitCurrentDir : Boolean) : String;
Function ExeSearch (Const Name : String; Const DirList : String = '') : String;
Function FileIsReadOnly(const FileName: String): Boolean;

2
rtl/objpas/sysutils/sysutils.inc
View File

@ -18,7 +18,7 @@
{ variant error codes }
{$i varerror.inc}
Function FileSearch (Const Name, DirList : String; Options : TFileSearchoptions = []) : String;
Function FileSearch (Const Name, DirList : String; Options : TFileSearchoptions = [sfoImplicitCurrentDir]) : String;
Var
I : longint;
Temp : String;