TreeTable怎样动态加载数据，求高手解决

objectMainextendsApp{

varreverse_pairs = 0//逆序数

defmsort[T](cmp:(T, T) =>Boolean)(l:List[T]):List[T] = {

defmerge(l1:List[T], l2:List[T]):List[T]=(l1, l2)match{

case(Nil, _) =>l2

case(_, Nil) =>l1

case(x::left1, y::left2) =>

if(cmp(x, y))

x::merge(left1, l2)

else{

reverse_pairs += l1.length

y::merge(l1, left2)

}

}

valn = l.length / 2

if(n == 0)

return l

else{

val(l1, l2) = l.splitAt(n)

merge(msort(cmp)(l1), msort(cmp)(l2))

}

}

println(msort((x:Int, y:Int) =>x<y)(List(5, 4, 3, 2, 7,6 )))

println(reverse_pairs)

}

<script type="text/javascript">

function getChildren(){

var node = $('#tt1').tree('getSelected') //tt1是你的树的id

if (node){

alert(“有子节点")

} else {

alert("无子节点")

}

}

</script>

<ul id="tt1" class="easyui-tree" animate="true" dnd="false">

<li>

<span>Folder</span>

<ul>

<li state="closed">

<span>Sub Folder 1</span>

<ul>

<li>

<span><a href="">File 11</a></span>

</li>

<li>

<span>File 12</span>

</li>

<li>

<span>File 13</span>

</li>

</ul>

</li>

<li>

<span>File 2</span>

</li>

<li>

<span>File 3</span>

</li>

<li>File 4</li>

<li>File 5</li>

</ul>

</li>

<li>

<span>File21</span>

</li>

</ul>

<a href="#" onclick="getChildren1()">getChildren1</a>

TreeView由节点构成，建树通过对TreeView.items属性进行 *** 作。Items是一个TTreeNodes对象，这是一个TTreeNode集。

一、针对TTreeNodes,也就是 TreeView.Items,有这些属性：

1、count，节点个数。

2、item[index] ,通过index得到节点。

二、针对TTreeNodes,也就是 TreeView.Items,常用的添加节点的 *** 作有：

AddFirst添加第一个根节点。由此函数添加的节点总排在前面，除非后来又使用此函数添加了一个节点，则后添加的节点将排在前面。该函数返回新添加的节点。

AddChildFirst添加第一个子节点，要求有父节点作为其参数。返回新添加的节点。

AddChild添加一个子节点，要求有父节点作为其参数。返回新添加的节点。

Add添加一个兄弟节点，要求有兄弟节点作为其参数。返回新添加的节点。

三、针对TTreeNodes,也就是 TreeView.Items,常用的得到节点的 *** 作有：

GetFirstNode() 得到根节点。

然后配合TTreeNode.GetNext(),就可以访问所有的节点。

四、建树举例：

var

root_node,cur_node:TTreeNode

begin

root_node:=AddFirst(nil,根节点1)

cur_node:=addChildfirst(root_node,nil,根节点1_child1)

add(cur_node,根节点1_child2)

root_node:=Add(nil,根节点2)

AddChildFirst(root_node,根节点2_child1)

end

五、事件触发：

当从一个节点跳到另一个节点，会触发TTreeView.OnChange事件。该事件中，将传递node,即当前被选中的节点。

当修改一个节点的text时，会触发TTreeView.onEdit事件。

六、将节点和节点所对应的数据联系起来

对于每个TTreeNode,有个Data属性，可以存放一个指针。我们可以利用这个域来存放与节点对应的自己的数据。

1.先定义一个数据结构，作为记录我们要记录的数据。如：

PMyData=^TMyData

TMyData=Record

Name:string

Sex:String

Age:integer

end

2.然后，创建数时，将节点和节点数据联系起来：

procedure TForm1.Button1Click(Sender: TObject)

var

RecPtr: PMyData

begin

New(RecPtr) //记住，一定要先分配内存。有几个节点，就要分配几次内存。

RecPtr^.Name:='康康'

RecPtr^.Sex := '男'

RecPtr^.Age := 18+TreeView1.Items.Count

TreeView1.items.AddObject(nil,'节点数据结构 '+inttostr(TreeView1.Items.Count),RecPtr)

end

3.当我们选中一个节点时，就可以使用我们的数据了。

procedure TForm1.TreeView1Change(Sender:TObjectNode:TTreeNode)

var

RecPtr: PMyData

begin

if TreeView1.Selected=nil then Exit

if TreeView1.Selected.Data<>nil then begin

RecPtr:=TreeView1.Selected.Data

ShowMessage(TreeView1.Selected.Text+#13#10+'姓名：'+RecPtr.Name+#13#10+'性别：'+RecPtr.Sex+#13#10+'年龄：'+inttostr(RecPtr.Age))

end

七、一般使用流程：

1、添加全局变量：

b_first:boolean //记录是否是第一次访问节点，因为此时数据还未准备好，而一旦访问节点就会触发OnChange事件，在此事件处理函数中也许会出错。

2、在FormCreate中，

a、设置b_first:=true

b. 创建数并将节点与数据联系。

3、在FormShow中

设置b_first:=false

4.在事件OnChange中处理节点被选中事件。

5.在Edit中处理节点被修改Text事件。

并调用OnChange.

6.在 TreeView.Destory中

释放Data 中指向的内存空间。

---