浏览代码

fcl-js: clean up

mattias 3 年之前
父节点
当前提交
3b9035c946
共有 1 个文件被更改,包括 0 次插入9 次删除
  1. 0 9
      packages/fcl-js/src/jstree.pp

+ 0 - 9
packages/fcl-js/src/jstree.pp

@@ -140,7 +140,6 @@ Type
     FResultType: TJSTypeDef;
     FTypedParams: TJSTypedParams;
     FGenericParams : TJSElementNodes;
-    procedure SetParams(const AValue: TStrings);
   Public
     Constructor Create;
     Destructor Destroy; override;
@@ -3575,14 +3574,6 @@ end;
 
 { TJSFuncDef }
 
-procedure TJSFuncDef.SetParams(const AValue: TStrings);
-begin
-  if FParams=AValue then exit;
-  FParams.Assign(AValue);
-  TStringList(FParams).OwnsObjects:=True;
-end;
-
-
 constructor TJSFuncDef.Create;
 begin
   FParams:=TStringList.Create;