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

IDE: TrimSearchPath: chomp path delims instead of add

Browse Source 
git-svn-id: trunk@27367 -
This commit is contained in:
mattias 2010-09-14 16:39:57 +00:00
parent 96b933cc95
commit a8a47d05b0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/ideprocs.pp
View File

@ -1344,7 +1344,7 @@ begin
if CurPath<>'' then begin if CurPath<>'' then begin
if (BaseDir<>'') and (not FilenameIsAbsolute(CurPath)) then if (BaseDir<>'') and (not FilenameIsAbsolute(CurPath)) then
CurPath:=BaseDir+CurPath; CurPath:=BaseDir+CurPath;
CurPath:=AppendPathDelim(TrimFilename(CurPath)); CurPath:=ChompPathDelim(TrimFilename(CurPath));
if Result<>'' then if Result<>'' then
CurPath:=';'+CurPath; CurPath:=';'+CurPath;
if CurPath<>'' then if CurPath<>'' then