paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 08:40:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

implemented custom package initialization

Browse Source 
git-svn-id: trunk@3416 -
This commit is contained in:
mattias 2002-10-01 15:45:46 +00:00
parent ba1bca6234
commit d6d3d3c853
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/ideprocs.pp
View File

@ -890,10 +890,11 @@ begin
if StartPos>l then break;
EndPos:=StartPos;
while (EndPos<=l) and (SearchPath[EndPos]<>';') do inc(EndPos);
CurPath:=TrimFilename(copy(SearchPath,StartPos,EndPos-StartPos));
CurPath:=copy(SearchPath,StartPos,EndPos-StartPos);
if CurPath<>'' then begin
if (BaseDirectory<>'') and (not FilenameIsAbsolute(CurPath)) then
CurPath:=BaseDirectory+CurPath;
CurPath:=TrimFilename(CurPath);
if Result<>'' then
CurPath:=';'+CurPath;
Result:=Result+CurPath;