IDE: fixed TrimSearchPath to keep a . path

git-svn-id: trunk@27366 -
This commit is contained in:
mattias 2010-09-14 16:38:27 +00:00
parent db8fac4fac
commit 96b933cc95
2 changed files with 5 additions and 2 deletions

View File

@ -5,7 +5,7 @@ unit compiler_path_options;
interface interface
uses uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Classes, SysUtils, LCLProc, FileUtil, Forms, Controls, Graphics, Dialogs,
Buttons, StdCtrls, LCLType, InterfaceBase, IDEOptionsIntf, Project, Buttons, StdCtrls, LCLType, InterfaceBase, IDEOptionsIntf, Project,
CompilerOptions, LazarusIDEStrConsts, PathEditorDlg, LazConf, IDEProcs, CompilerOptions, LazarusIDEStrConsts, PathEditorDlg, LazConf, IDEProcs,
CheckCompilerOpts, MacroIntf, ShowCompilerOpts, MainIntf, CheckCompilerOpts, MacroIntf, ShowCompilerOpts, MainIntf,

View File

@ -1347,7 +1347,10 @@ begin
CurPath:=AppendPathDelim(TrimFilename(CurPath)); CurPath:=AppendPathDelim(TrimFilename(CurPath));
if Result<>'' then if Result<>'' then
CurPath:=';'+CurPath; CurPath:=';'+CurPath;
Result:=Result+CurPath; if CurPath<>'' then
Result:=Result+CurPath
else
Result:=Result+'.';
end; end;
end; end;
end; end;