Incompatible types: "TContext" and "_CONTEXT&qu

webcrow

我自己做了个公共函数单元，里面定义了这个函数
编译提示：[错误]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;