起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 465|回复: 12

请教编译出现这个:应该如何修改?

[复制链接]
发表于 2010-3-22 09:40:12 | 显示全部楼层 |阅读模式
[警告]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"
回复

使用道具 举报

发表于 2010-3-22 09:54:11 | 显示全部楼层
[错误]Biz:\SYSTEM \SYSCALLFOLDER_NEW\OTHERSYSCALLLIB_NEW.LIBRARY.PAS(156, 50): Undeclared identifier "Context"
资源集没这个context,要从外部传递进函数。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-22 10:17:15 | 显示全部楼层
我要取业务参数,我看每个方法必须传 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;

我应该如何做?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-22 11:06:38 | 显示全部楼层

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

李工,帮人帮到底,先谢谢哦
回复 支持 反对

使用道具 举报

发表于 2010-3-22 13:10:12 | 显示全部楼层
在你的函数上加上context:tcontext  调用的时候,把这个参数赋值就可以了。
功能、组织机构、窗体都有环境这个对象的。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-22 15:12:47 | 显示全部楼层
不行,这个功能在主窗体都被引用了,一旦加上context 传参,就有问题(context为空 报错),你问一下 孙工,他那天换了思路,在系统函数库里加了个变量。才解决。我总不能 也去 修改系统函数库吧
回复 支持 反对

使用道具 举报

发表于 2010-3-22 15:35:38 | 显示全部楼层
具体需求您具体修改。我只是针对你这个错误说的。

不行,这个功能在主窗体都被引用了,一旦加上 context 传参,就有问题(context为空 报错)
你是怎么传的?
function TSTANDARDSTYLEMAINFORM.GetRealContext: TContext;
begin
  if FDefaultPosition = nil then
    Result := TSystemCore.Operator.Context
  else
    Result := FDefaultPosition.Context;
end;
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-22 15:56:48 | 显示全部楼层
不搞了,就是一个加密的密匙,在好几个地方用到,我想统一一个地方维护
有没有其他办法?
回复 支持 反对

使用道具 举报

发表于 2010-3-22 16:06:28 | 显示全部楼层
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-22 16:08:46 | 显示全部楼层
也就是说 只有这一条路了
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-10 05:08 , Processed in 0.044260 second(s), 16 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表