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

LazLogger: Support setting *_debuglog environment variable. Issue #26537, patch from Reinier Olislagers

Browse Source 
git-svn-id: trunk@46161 -
This commit is contained in:
juha 2014-09-08 10:17:52 +00:00
parent da28de64ac
commit bc278b1845
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazutils/lazlogger.pas
View File

@ -641,7 +641,11 @@ begin
if FEnvironmentForLogFileName <> '' then begin;
// if not found yet, then try to find in the environment variables
if (length(result)=0) then begin
EnvVarName:= ChangeFileExt(ExtractFileName(ParamStrUTF8(0)),'') + FEnvironmentForLogFileName;
// Substitute * with executable filename without extension
EnvVarName:=StringReplace(FEnvironmentForLogFileName,
'*',
ChangeFileExt(ExtractFileName(ParamStrUTF8(0)),''),
[rfReplaceAll,rfIgnoreCase]);
Result := GetEnvironmentVariableUTF8(EnvVarName);
end;
end;