请教编译出现这个：应该如何修改？

itking

[警告]Biz:\SYSTEM\SYSCALLFOLDER_NEW\OTHERSYSCALLLIB_NEW.LIBRARY.PAS(30, 22): 方法 'TExtSys.FreeInstance' 隐藏了前代类 'TObject ' 的虚方法
[错误]Biz:\SYSTEM\SYSCALLFOLDER_NEW\OTHERSYSCALLLIB_NEW.LIBRARY.PAS(156, 50): Undeclared identifier "Context"

lixy

[错误]Biz:\SYSTEM \SYSCALLFOLDER_NEW\OTHERSYSCALLLIB_NEW.LIBRARY.PAS(156, 50): Undeclared identifier "Context"
资源集没这个context，要从外部传递进函数。

itking

我要取业务参数，我看每个方法必须传 context
主要我的'TExtSys类是 static

  lBizURL := TBizURL.Create;
    try
    lBizURL.URL := 'Biz:\SYSTEM\URLJM.ParamGroup';
    lParam := SystemUtils.TContextUtils.GetParam(Context, lBizURL, 'URLJMMM');
    Edit3.Text:= Variants.VarToStr(lParam.Value);
  finally
    lBizURL.Free;
  end;

我应该如何做？

itking

李工，帮人帮到底，先谢谢哦

lixy

在你的函数上加上context:tcontext  调用的时候，把这个参数赋值就可以了。
功能、组织机构、窗体都有环境这个对象的。

itking

不行，这个功能在主窗体都被引用了，一旦加上context 传参，就有问题（context为空 报错），你问一下 孙工，他那天换了思路，在系统函数库里加了个变量。才解决。我总不能 也去 修改系统函数库吧

lixy

具体需求您具体修改。我只是针对你这个错误说的。

不行，这个功能在主窗体都被引用了，一旦加上 context 传参，就有问题（context为空 报错）
你是怎么传的？
function TSTANDARDSTYLEMAINFORM.GetRealContext: TContext;
begin
  if FDefaultPosition = nil then
    Result := TSystemCore.Operator.Context
  else
    Result := FDefaultPosition.Context;
end;

itking

不搞了，就是一个加密的密匙，在好几个地方用到，我想统一一个地方维护
有没有其他办法？

lixy

http://bbs.justep.cn/showthread.php?s=&threadid=26747

itking

也就是说 只有这一条路了