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

IDE: made GetProgramSearchPath a function, Delim can be replaced with System.PathSep

Browse Source 
git-svn-id: trunk@12379 -
This commit is contained in:
vincents 2007-10-08 11:18:34 +00:00
parent b77db7a61d
commit db339f6b42
1 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/ideprocs.pp
View File

@ -209,7 +209,7 @@ function StringListPartToText(List: TStrings; FromIndex, ToIndex: integer;
// environment
function GetCurrentUserName: string;
function GetCurrentMailAddress: string;
procedure GetProgramSearchPath(var SearchPath: string; out Delim: char);
function GetProgramSearchPath: string;
function ProgramDirectory: string;
// debugging
@ -1530,8 +1530,6 @@ function FindProgram(const Programname, BaseDirectory: string;
WithBaseDirectory: boolean): string;
var
Flags: TSearchFileInPathFlags;
SearchPath: string;
Delim: char;
begin
if FilenameIsAbsolute(Programname) then begin
if FileExists(Programname) then
@ -1543,9 +1541,8 @@ begin
Flags:=[];
if not WithBaseDirectory then
Include(Flags,sffDontSearchInBasePath);
GetProgramSearchPath(SearchPath,Delim);
Result:=FileUtil.SearchFileInPath(Programname,BaseDirectory,SearchPath,
Delim,Flags);
Result:=FileUtil.SearchFileInPath(Programname,BaseDirectory,
GetProgramSearchPath,PathSep,Flags);
end;
function DateToCfgStr(const Date: TDateTime): string;
@ -2214,10 +2211,9 @@ begin
Result:='<'+GetCurrentUserName+'@'+GetEnvironmentVariable('HOSTNAME')+'>';
end;
procedure GetProgramSearchPath(var SearchPath: string; out Delim: char);
function GetProgramSearchPath: string;
begin
SearchPath:=GetEnvironmentVariable('PATH');
Delim:=':';
GetProgramSearchPath := GetEnvironmentVariable('PATH');
end;
{------------------------------------------------------------------------------