From a64855cad9b1b671c3e77a13ff00659617351ccb Mon Sep 17 00:00:00 2001
From: bart <9132501-flyingsheep@users.noreply.gitlab.com>
Date: Sat, 25 Apr 2015 18:02:28 +0000
Subject: [PATCH] LazUtils: TFileSearcher.Search: if SearchPath is empty,
 search current directory.

git-svn-id: trunk@48854 -
---
 components/lazutils/fileutil.inc | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/components/lazutils/fileutil.inc b/components/lazutils/fileutil.inc
index 2a4b0fd802..9764028fad 100644
--- a/components/lazutils/fileutil.inc
+++ b/components/lazutils/fileutil.inc
@@ -1169,8 +1169,14 @@ begin
       if Dir<>'' then
         SearchDirectories.Add(Dir);
     end;
-    for i:=0 to SearchDirectories.Count-1 do
-      DoSearch(AppendPathDelim(SearchDirectories[i]), 0);
+    //Search currentdirectory if ASearchPath = ''
+    if (SearchDirectories.Count=0) then
+      DoSearch('',0)
+    else
+    begin
+      for i:=0 to SearchDirectories.Count-1 do
+        DoSearch(AppendPathDelim(SearchDirectories[i]), 0);
+    end;
   finally
     SearchDirectories.Free;
     FSearching := False;