起步软件技术论坛-X3

 找回密码
 立即注册
搜索
12
返回列表 发新帖
楼主: taiji

请问TJSStringList这个类是做什么的?**

[复制链接]
发表于 2009-5-11 17:04:23 | 显示全部楼层
这个对象是给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;
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-5-12 08:03:29 | 显示全部楼层

回复

我是问传入这个方法的参数(ATabls:TjsStringList)从哪里获得?
论坛中,我没有找到相关例子。
如果你那里也没有的话,那就算了。
结帖
回复 支持 反对

使用道具 举报

发表于 2009-5-12 08:40:31 | 显示全部楼层
这个参数是自己创建出来的,楼主在不说明自己要干什么的情况下,只能提供比较模糊的答案?根据不同的要求这个参数传的值也是不同的!另外,这个形参怎么获得并不重要,重要的是怎么用,上面已经把使用的代码帖上来了,应该能看明白每一部分的值是什么了,楼主只需要根据自己的需求,把自己的值填上去就行了!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-21 09:35 , Processed in 0.037337 second(s), 12 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表