From 02e25742697c8345eb985f6bb1d45842d913c288 Mon Sep 17 00:00:00 2001 From: mattias Date: Tue, 12 May 2015 10:22:59 +0000 Subject: [PATCH] codetools: added FindPathInSearchPath git-svn-id: trunk@48993 - --- components/lazutils/lazfileutils.pas | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/components/lazutils/lazfileutils.pas b/components/lazutils/lazfileutils.pas index 2c5bc15b84..cce0981a6b 100644 --- a/components/lazutils/lazfileutils.pas +++ b/components/lazutils/lazfileutils.pas @@ -74,7 +74,8 @@ function CreateAbsoluteSearchPath(const SearchPath, BaseDirectory: string): stri function CreateRelativeSearchPath(const SearchPath, BaseDirectory: string): string; function MinimizeSearchPath(const SearchPath: string): string; function FindPathInSearchPath(APath: PChar; APathLen: integer; - SearchPath: PChar; SearchPathLen: integer): PChar; + SearchPath: PChar; SearchPathLen: integer): PChar; overload; +function FindPathInSearchPath(const APath, SearchPath: string): integer; overload; // file operations function FileExistsUTF8(const Filename: string): boolean; @@ -945,6 +946,19 @@ begin end; end; +function FindPathInSearchPath(const APath, SearchPath: string): integer; +var + p: PChar; + SearchP: PChar; +begin + SearchP:=PChar(SearchPath); + p:=FindPathInSearchPath(PChar(APath),length(APath),SearchP,length(SearchPath)); + if p=nil then + Result:=-1 + else + Result:=p-SearchP+1; +end; + function FileSearchUTF8(const Name, DirList: String; ImplicitCurrentDir : Boolean = True): String; Var I : longint;