【结】公共组件库报错

kcyjy

运行功能报错，报错指向
公共组件库（兼容性保留）
function TUserSystem.GetCurrentPersonMember: TOrgUnit;
begin
   Result := CurrentPosition.PersonMember;
end;

改写成
function TUserSystem.GetCurrentPersonMember: TOrgUnit;
var
lContextCurrent: Business.Model.TContextCurrent;
begin
  lContextCurrent := Business.Model.TContextCurrent.Create( ;) self.Context);
  Result := lContextCurrent.PersonMember;
end;
无法编译通过：[警告]Biz:\SYSTEM\BASEUSERINTERFACE\LIBS\COMMONCOMPONENTLIBRARY.LIBRARY.PAS(1336, 14): 方法 'TFileStrings.CompareStrings' 隐藏了前代类 'TStringList ' 的虚方法
[警告]Biz:\SYSTEM\BASEUSERINTERFACE\LIBS\COMMONCOMPONENTLIBRARY.LIBRARY.PAS(1337, 14): 方法 'TFileStrings.Find' 隐藏了前代类 'TStringList ' 的虚方法
[错误]Biz:\SYSTEM\BASEUSERINTERFACE\LIBS\COMMONCOMPONENTLIBRARY.LIBRARY.PAS(3695, 65): Undeclared identifier "Context"

请问该如何处理，我们很多流程都引用了这里

jiahaiming

Business.Model.TContextCurrent.Create( ;) self.Context);
怎么这样写？

jiahaiming

http://bbs.justep.com/forum.php?mod=viewthread&tid=9474

kcyjy

lContextCurrent := Business.Model.TContextCurrent.Create(Self.Context);
是写成这样的，编译不过去，刚才写帖子的时候写错了

kcyjy

再次请教
lDeptURL := TCommonComponentLibrary.UserSystem.CurrentDept.BizURL.URL;
写成X3的用法，应该怎么改呢？
是不是原来引入公共组件库的地方，要改成引入组件库呢？

zfang

TUserSystem
中有FContext ： TContext；你用他看看呢。
lContextCurrent := Business.Model.TContextCurrent.Create(FContext);

kcyjy

修改为：
procedure TPublicParamGroup.ParamDeptURLParamGetValue(Sender: TObject; var Value: Variant);
var
  lDeptURL, lDeptURLNoPrefix: string;

lContextCurrent: Business.Model.TContextCurrent;
begin
  lContextCurrent := Business.Model.TContextCurrent.Create(Self.Context);
  lDeptURL := lContextCurrent.Dept.BizURL.URL;
  //lDeptURL := TCommonComponentLibrary.UserSystem.CurrentDept.BizURL.URL;
  lDeptURLNoPrefix := FileSys.FileUtils.RemoveFilePrefix(lDeptURL);
  Value := lDeptURLNoPrefix;
end;

运行功能，会报隔离级为position的不存在，请问怎么处理

shangxy

看一下你的参数组的隔离集是怎么设置的？

kcyjy

我设置的是全局的

kcyjy

我试过取消隔离集，就不报错了。但原来引用参数进行自动填充的，都不灵了