[搞定]为什么Context是空对象？

yuhong

TCusTomBill声明为
  TCustomBill = class(TBizLibrary)  

下面的方法中，由于Self.Context为空对象，不能通过。

procedure TCustomBill.SetBillTypeParam(aBillType: string);
var
  lBizUrl: TBizUrl;
begin
  lBizUrl := TBizUrl.Create;
  try
    lBizURL.URL:='Biz:\HBLSYSTEM\DICT\CommonOperParamGroup.ParamGroup';
    BillTypeParam := SystemUtils.TContextUtils.GetParam(Context, lBizURL, 'BillType');
    BillTypeParam.Value := aBillType;
  finally
    lBizUrl.Free;
  end;
end;

yancm

您在使用之前，创建资源集传入的是什么环境？不会是nil吧？

yuhong

我的TCustombill只能这样建立：
begin
  case SysUtils.StrToInt(BillTypeCode) of
    10: result := TCustomBill.Create;
    20:.....
  else
....
  end;
end;

yuhong

最初由 yancm 发布
[B]您在使用之前，创建资源集传入的是什么环境？不会是nil吧？ [/B]

不明白怎么传入，自建的Class只有一个Create方法。

lixy

需要override那个create方法。context是传入的

lixy

constructor Create(AContext: TContext);
    destructor Destroy; override;

这样定义

yuhong

解决了，重写类的Create方法，增加Tcontext参数。