按照某个对象的bizurl来查找该对象是否存在

atiger

var
  lBizURL: TBizURL;
  lBizNode: TBizNode;
begin
  lBizURL := TBizURL.Create;
  try
    lBizURL.URL := Edit1.Text ;//'Biz:\TESTSPACE\TEST\YWGN1.Func\MainForm.Form';
    if  biztree.BizTreeStructure.IsBizObject(Edit1.Text) then
    begin
      lBizNode := biztree.BizTreeStructure.FindNodeByBizURL(lBizURL);
      if Assigned(lBizNode) then
      begin
        Memo1.Lines.Clear;
        Memo1.Lines.add(lBizNode.ID);
        Memo1.Lines.add(lBizNode.DisplayName);
        Memo1.Lines.add(lBizNode.FullFileName);
        Memo1.Lines.add(lBizNode.BizURL.Url);
      end
      else
       dialogs.ShowMessage('不存在');
    end
    else
      dialogs.ShowMessage('不存在');
  finally
    lBizUrl.Free;
  end;
end;