paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 13:39:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: added FindPathInSearchPath

Browse Source 
git-svn-id: trunk@48993 -
This commit is contained in:
mattias 2015-05-12 10:22:59 +00:00
parent a75182bbd1
commit 02e2574269
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/lazutils/lazfileutils.pas
View File

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