paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-23 04:49:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ TSearchPathList.AddPath supports a local path in addition to file name

Browse Source
This commit is contained in:
mazen 2002-11-20 10:11:46 +00:00
parent a450f2934c
commit 11b3fa6d81
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/globals.pas
View File

@ -84,6 +84,7 @@ interface
TSearchPathList = class(TStringList) TSearchPathList = class(TStringList)
procedure AddPath(s:string;addfirst:boolean); procedure AddPath(s:string;addfirst:boolean);
procedure AddPath(SrcPath,s:string;addfirst:boolean);
procedure AddList(list:TSearchPathList;addfirst:boolean); procedure AddList(list:TSearchPathList;addfirst:boolean);
function FindFile(const f : string;var foundfile:string):boolean; function FindFile(const f : string;var foundfile:string):boolean;
end; end;
@ -742,9 +743,12 @@ implementation
end; end;
end; end;
procedure TSearchPathList.AddPath(s:string;addfirst:boolean);
begin
AddPath('',s,AddFirst);
end;
procedure TSearchPathList.AddPath(SrcPath,s:string;addfirst:boolean);
procedure TSearchPathList.AddPath(s:string;addfirst:boolean);
var var
j : longint; j : longint;
hs,hsd, hs,hsd,
@ -795,7 +799,7 @@ implementation
j:=Pos(';',s); j:=Pos(';',s);
if j=0 then if j=0 then
j:=255; j:=255;
CurrPath:=FixPath(Copy(s,1,j-1),false); CurrPath:=SrcPath+FixPath(Copy(s,1,j-1),false);
System.Delete(s,1,j); System.Delete(s,1,j);
end; end;
{ fix pathname } { fix pathname }
@ -1512,7 +1516,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.70 2002-11-16 14:49:12 carl Revision 1.71 2002-11-20 10:11:46 mazen
+ TSearchPathList.AddPath supports a local path in addition to file name
Revision 1.70 2002/11/16 14:49:12 carl
- browser information is off by default - browser information is off by default
Revision 1.69 2002/11/15 01:58:47 peter Revision 1.69 2002/11/15 01:58:47 peter