这个对象是给x3调用的,一般你们在外面用不着调用它,如果实在要用,可以在x3中找一个调用的例子看看!
for i := 0 to ATables.Count - 1 do
begin
lObject := ATables.Objects;
if not Assigned(lObject) then continue;
if not (lObject is TObjectInfoRef) then continue;
lInfo := (lObject as TObjectInfoRef).Info;
if not Assigned(lInfo) then continue;
lFieldInfos := BizSys.BizSystem.GetItemList(lInfo.BizURL);
if not Assigned(lFieldInfos) then continue;
lTableAlias := '';
if not SysUtils.SameText(ATables.Strings, lInfo.ID) then
lTableAlias := ATables.Strings;
lNode := FTreeView.Items.Add(nil, lInfo.DisplayName);
if not Assigned(lNode) then continue;
lNode.Data := nil;
lNode.ImageIndex := FTableImageIndex;
lNode.SelectedIndex := FTableImageIndex;
for j := 0 to lFieldInfos.Count - 1 do
begin
lFieldInfo := lFieldInfos.Items[j];
if not Assigned(lFieldInfo) then continue;
lFieldData := TAdvFieldData.Create(lFieldInfo, lTableAlias);
Allow := True;
if Assigned(FOnInsert) then FOnInsert(lFieldData, Allow);
if not Allow then Continue;
lChildNode := FTreeView.Items.AddChild(lNode, lFieldInfo.DisplayName);
if not Assigned(lChildNode) then continue;
lChildNode.Data := lFieldData;;
lChildNode.ImageIndex := FFieldImageIndex;
lChildNode.SelectedIndex := FFieldImageIndex;
end;
lNode.Expanded := True;
end; |