【结贴】TBizBrowseDialog的InitialDir设置**

loworth

展示控件为DataTreeList
数据集的FID字段用了OnButtonClick事件做如下操作。FID字段存储组织机构的FID。
第一次触发的时候好用，点确定（点取消没后没出现后面的错误）后。第二次触发该事件时报错（如图错误1）。
并且关闭该窗体后，出现图中错误2的现象。
不知道描述清楚了没。
何故，有解决方法没。

procedure THSDX.FIELD_HSDX_FIDButtonClick(Sender: TObject);
var
  lBizurl:TBizUrl;
  lOrgUnit:Org.TOrgUnit;
begin
  bbdOrgDpt.ShowOptions := [TBizObjectKind.boOrgRoot,TBizObjectKind.boOrgan,
                                  TBizObjectKind.boOrgServer,TBizObjectKind.boDept];
  bbdOrgDpt.Title := '选择核算对象';
  bbdOrgDpt.PromptText := '选择一个单位';
  bbdOrgDpt.MustSelectedNode :=[TBizObjectKind.boOrgan,TBizObjectKind.boDept];

  if DataSetHSDX.FieldByName('FID').AsString<>'' then
  begin
    try
      lOrgUnit := Org.OrgSys.OrgSystem.FindUnit(DataSetHSDX.FieldByName('FID').AsString,'','');
      bbdOrgDpt.InitialDir:=lOrgUnit.BizURL.FileName;
    except
      bbdOrgDpt.InitialDir:='';
    end;
    lOrgUnit.Free;
  end
  else
    bbdOrgDpt.InitialDir:='';
  if bbdOrgDpt.Execute then
  begin
    lBizUrl:=TBizUrl.Create;
    lBizUrl.FileName:=bbdOrgDpt.FileName;
    DataSetHSDX.Edit;
    DataSetHSDX.FieldByName('FID').AsString:=lBizUrl.ID;
    lBizUrl.Free;
  end;
end;

zfang

请楼主稍等。

zfang

楼主，经过检查，报错应该是在第二次调用这个代码时
bbdOrgDpt.InitialDir := lOrgUnit.BizURL.FileName; 这句报错
是他lOrgUnit.BizURL.FileName有问题。

zfang

好像跟lOrgUnit.free有关。

loworth

lOrgUnit.free删掉或注释掉就没问题了。 这样会不会造成系统资源浪费或者内存泄露什么的

zfang

其实应该是加一个lOrgUnit.create就比较好了。你试试。

loworth

...加到哪里呢？
加到
try
      lOrgUnit := OrgSys.OrgSystem.FindUnit(DataSetHSDX.FieldByName('FID').AsString,'','')
之前还是报错

zfang

刚才试了一下。应该lOrgUnit 不用创建和释放。
通过FindUnit方式，平台自己管理这个对象。

atiger

另外
  begin
    lBizUrl:=TBizUrl.Create;
    lBizUrl.FileName:=bbdOrgDpt.FileName;
    DataSetHSDX.Edit;
    DataSetHSDX.FieldByName('FID').AsString:=lBizUrl.ID;
    lBizUrl.Free;
  end;
这个代码也修改一下

  begin
    lBizUrl:=TBizUrl.Create;
    try
       lBizUrl.FileName:=bbdOrgDpt.FileName;
      DataSetHSDX.Edit;
      DataSetHSDX.FieldByName('FID').AsString:=lBizUrl.ID;
finally
    lBizUrl.Free;
end;
  end;

loworth

好的 谢谢 zfang 谢谢 atiger
结贴