From f0e96331b86d0e6424411a789349f34db8cc5f05 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 27 Apr 2017 14:33:50 +0000
Subject: [PATCH] lazutils: added MergeWithDelimiter

git-svn-id: branches/fixes_1_8@54757 -
---
 components/codetools/directorycacher.pas |  9 ++-------
 components/lazutils/lazutilities.pas     | 12 ++++++++++++
 2 files changed, 14 insertions(+), 7 deletions(-)

diff --git a/components/codetools/directorycacher.pas b/components/codetools/directorycacher.pas
index 2bae3d38d0..38175c74b7 100644
--- a/components/codetools/directorycacher.pas
+++ b/components/codetools/directorycacher.pas
@@ -1240,13 +1240,8 @@ begin
     // normal unit name
 
     if Pos('.',AUnitName)<1 then begin
-      // generic unit -> search with namespaces first
-      NameSpaces:=Strings[ctdcsNamespaces];
-      if AddNameSpaces<>'' then begin
-        if NameSpaces<>'' then NameSpaces:=NameSpaces+';';
-        NameSpaces:=NameSpaces+AddNameSpaces;
-      end;
-
+      // generic unit -> search with namespaces
+      NameSpaces:=MergeWithDelimiter(Strings[ctdcsNamespaces],AddNameSpaces,';');
       if NameSpaces<>'' then begin
         // search with additional namespaces, separated by semicolon
         //debugln(['TCTDirectoryCache.FindUnitSourceInCompletePath NameSpaces="',NameSpaces,'"']);
diff --git a/components/lazutils/lazutilities.pas b/components/lazutils/lazutilities.pas
index 88f4d6e34a..0ecabb490b 100644
--- a/components/lazutils/lazutilities.pas
+++ b/components/lazutils/lazutilities.pas
@@ -29,6 +29,7 @@ function HasDelimitedItem(const List: string; Delimiter: char; FindItem: string
                           ): boolean;
 function FindNextDelimitedItem(const List: string; Delimiter: char;
                                var Position: integer; FindItem: string): string;
+function MergeWithDelimiter(const a, b: string; Delimiter: char): string;
 
 implementation
 
@@ -145,5 +146,16 @@ begin
   Result:='';
 end;
 
+function MergeWithDelimiter(const a, b: string; Delimiter: char): string;
+begin
+  if a<>'' then begin
+    if b<>'' then
+      Result:=a+Delimiter+b
+    else
+      Result:=b;
+  end else
+    Result:=b;
+end;
+
 end.