Skip to content

FCL-JS: many non-const string params

Continuation of #40047 (closed). In SUBJ package using the same RegEx, I found many non-const str params. Full log:

+Search "[\(;]\s*\w+\s*:\s*string". Report with [styles].
	<jstree.pp>: #3
		<  36>:     procedure SetS(AIndex : Integer; AValue: String);
		<2568>: procedure TStrings.SetS(AIndex : Integer; AValue: String);
		<3448>:   Function CN(aName : String; DoClear : Boolean = True) : TJSElementNodes;
	<jssrcmap.pas>: #5
		< 147>:     procedure SaveToFile(Filename: string); virtual;
		< 148>:     procedure LoadFromFile(Filename: string); virtual;
		< 608>:   procedure RaiseInvalid(Msg: string);
		<1137>: procedure TSourceMap.SaveToFile(Filename: string);
		<1151>: procedure TSourceMap.LoadFromFile(Filename: string);
	<tstopas.pp>: #11
		< 182>:     procedure AllocatePasNames(FD: TJSFuncDef; aPrefix: String='');
		< 183>:     procedure AllocatePasNames(aList: TJSSourceElements; ParentName: String=''); virtual;
		< 184>:     procedure AllocatePasNames(aList: TJSElementNodes; ParentName: String=''); virtual;
		< 185>:     Function AllocatePasName(D: TJSElement; ParentName: String='') : TPasData;virtual;
		< 218>:     function WriteForwardClass(aName: string): Boolean;
		<1388>: function TTypescriptToPas.AllocatePasName(D: TJSElement; ParentName: String): TPasData;
		<1639>: procedure TTypescriptToPas.AllocatePasNames(FD : TJSFuncDef; aPrefix: String = '');
		<1647>: procedure TTypescriptToPas.AllocatePasNames(aList : TJSElementNodes; ParentName: String = '');
		<1704>: procedure TTypescriptToPas.AllocatePasNames(aList : TJSSourceElements; ParentName: String = '');
		<3040>: function TTypescriptToPas.WriteForwardClass(aName : string) : Boolean;
		<3359>:   Function GetInterfaces(aName : String) : TJSInterfaceDeclarationArray;
To upload designs, you'll need to enable LFS and have an admin enable hashed storage. More information