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

* Refactor to easily set command-line options

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-02-03 11:13:32 +01:00
parent 14ac1c26d2
commit 296638644a
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
packages/fcl-base/src/browserapp.pas
View File

@ -56,6 +56,8 @@ type
end;
procedure ReloadEnvironmentStrings;
procedure SetCommandLineParams(aExe : String; Pars : Array of string);
procedure ReloadParamStrings;
implementation
@ -102,12 +104,19 @@ begin
else
SetLength(Pars,0);
SetLength(Params,1+Length(Pars));
SetCommandLineParams(Window.location.pathname,Pars);
end;
procedure SetCommandLineParams(aExe : String; Pars : Array of string);
var
I : integer;
begin
Params[0]:=Window.location.pathname;
For I:=0 to Length(Pars)-1 do
Params[1+I]:=Pars[I];
end;
function GetParamCount: longint;
begin
Result:=Length(Params)-1;