paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 17:58:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: --help parameter is detected at any position now

Browse Source 
git-svn-id: trunk@32212 -
This commit is contained in:
maxim 2011-09-07 21:37:42 +00:00
parent 3fb87d479c
commit 326ec7dc44
1 changed files with 16 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
ide/idecmdline.pas
View File

@ -59,7 +59,7 @@ procedure ParseCommandLine(aCmdLineParams : TStrings; out IDEPid : Integer;
function GetCommandLineParameters(aCmdLineParams : TStrings;
isStartLazarus : Boolean = False) : String;
function IsHelpRequested (index : Integer = 1) : Boolean;
function IsHelpRequested : Boolean;
function IsVersionRequested : boolean;
function GetLanguageSpecified : string;
function ParamIsOption(ParamIndex : integer; const Option : string) : boolean;
@ -145,20 +145,27 @@ begin
Result := Result + ' ' + aCmdLineParams[i];
end;
function IsHelpRequested (index : Integer = 1) : Boolean;
function IsHelpRequested : Boolean;
var
i: integer;
begin
Result := (ParamCount>=index) and
((SysUtils.CompareText (ParamStrUTF8(index), '--help') = 0) or
(SysUtils.CompareText (ParamStrUTF8(index), '-help') = 0) or
(SysUtils.CompareText (ParamStrUTF8(index), '-?') = 0) or
(SysUtils.CompareText (ParamStrUTF8(index), '-h') = 0));
Result := false;
i:=1;
while (i <= ParamCount) and (Result = false) do
begin
Result := ParamIsOption(i, '--help') or
ParamIsOption(i, '-help') or
ParamIsOption(i, '-?') or
ParamIsOption(i, '-h');
inc(i);
end;
end;
function IsVersionRequested: boolean;
begin
Result := (ParamCount=1) and
((SysUtils.CompareText (ParamStrUTF8(1), '--version') = 0) or
(SysUtils.CompareText (ParamStrUTF8(1), '-v') = 0));
(ParamIsOption(1, '--version') or
ParamIsOption(1, '-v'));
end;
function GetLanguageSpecified : string;