Forráskód Böngészése

* Changed ImplicitDir default from False to True

git-svn-id: trunk@17735 -
michael 14 éve
szülő
commit
a07b14853a
2 módosított fájl, 2 hozzáadás és 2 törlés
  1. 1 1
      rtl/objpas/sysutils/filutilh.inc
  2. 1 1
      rtl/objpas/sysutils/sysutils.inc

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

@@ -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;

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

@@ -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;