起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 532|回复: 0

Incompatible types: "TContext" and "_CONTEXT&qu

[复制链接]
发表于 2011-10-24 00:29:04 | 显示全部楼层 |阅读模式
我自己做了个公共函数单元,里面定义了这个函数
编译提示:[错误]Biz:\LOCKSERPSPACE\PUBLICSOURCE\PUBLICFUNCTION.LIBRARY.PAS(54, 45): Incompatible types: "TContext" and "_CONTEXT"

static procedure TPUBLICFUNCTION.SetPublicParamValue(AValue: String;AContext:TContext);
var
  lParam: TBizParam;
  lBizURL: TBizURL;
  lContextCurrent: TContextCurrent;
begin
  lBizURL := TBizURL.Create;
  lContextCurrent := TContextCurrent.Create(AContext);
  try
    lBizURL.URL := 'Biz:\LOCKSERPSPACE\PUBLICPARAMETER.PARAMGROUP\paramCurrentFocus.Param';
    lParam := lContextCurrent.GetParam(lBizURL);
    lParam.Value := AValue;
  finally
    lBizURL.Free;
  end;
end;
回复

使用道具 举报

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

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2024-12-22 18:07 , Processed in 0.037280 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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