请问各位大大一个关于treenode的问题！

[lucifer222]

我设置了一个ttreenode的数组变量，然后将treeview中所选中的节点加入到其中，但是其中有字节点的数组变量是我所不需要的，我想将其从数组中删去，用后面的变量代替，请问程序应该如何写？？？？？
ps:我的程序是：
i,i1:integer;
for i := 0 to TreeView1.Items.Count - 1 do
if TreeView1.Items[i].Selected then
count:=count+1;
for i:=count-1 downto 0 do
begin
j1[i]:=treeview1.Selections[i];
if j1[i].HasChildren then
begin
for i1:=i to count-1 do
j1[i1]:=j1[i1+1];
end;
end.
程序编译出错，请问各位大大错在哪里？
谢谢各位大大！！！！！！（十分感谢！！！！！）

[chechy]

变量定义一下，编译就不会错了。
procedure TForm1.Button1Click(Sender: TObject);
var
i, i1: integer;
Count: Integer;
j1: array [0..100] of TTreeNode;
begin
for i := 0 to TreeView1.Items.Count - 1 do
if TreeView1.Items[i].Selected then
count := count + 1;
for i := count - 1 downto 0 do
begin
j1[i] := treeview1.Selections[i];
if j1[i].HasChildren then
begin
for i1 := i to count - 1 do
j1[i1] := j1[i1 + 1];
end;
end;
end;

[lucifer222]

我已经定已过了阿

[liuguang]

j1是什么东西,它有haschildren属性吗?同意上面老兄做法