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

IDE: fix IsVersionRequested

Browse Source 
git-svn-id: branches/fixes_2_0@60781 -
This commit is contained in:
mattias 2019-03-26 19:55:20 +00:00
parent 6fc9a49d7c
commit e619670a04
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/idecmdline.pas
View File

@ -300,9 +300,11 @@ end;
function IsVersionRequested: boolean;
begin
Result := (ParamsAndCfgCount=1) and
(ParamIsOption(1, '--version') or
ParamIsOption(1, '-v'));
//Don't use ParamsAndCfgCount here, because ATM (2019-03-24) GetParamsAndCfgFile adds
//ParamStrUtf8(0) to it and may add more in the future
Result := (ParamCount=1) and
((ParamStr(1)='--version') or
(ParamStr(1)='-v'));
end;
function GetLanguageSpecified : string;