MAPX开发中，如何取出NODES这个ARRAY，然后怎么浏览他的每个接点了[ SafeArray= ] OBJECT.Nodes ([CSys]) (100分

MAPX开发中，如何取出NODES这个ARRAY，然后怎么浏览他的每个接点了[ SafeArray= ] OBJECT.Nodes ([CSys]) (100分)<br />MAPX开发中，如何取出NODES这个ARRAY，然后怎么浏览他的每个接点了[ SafeArray= ] OBJECT.Nodes ([CSys])

VAR
arrVals,obj:variant;
begin

arrVals := obj.Nodes;
i := arrvals[1, 1];//标记图元的结点个数，比如三角形有四个结点，因为有一点是首点和尾点结合点，算两个点
if (i - 1) > 2 then

begin

listbox1.Items.Append('这个图元共有的结点数是' + inttostr(i - 1));
listbox1.Items.Append('各个结点的X，Y坐标是：');
for k := 1 to i - 1do

begin

listbox1.Items.Append('x=' + floattostr(arrvals[2 * k, 1]) + ' y=' + floattostr(arrvals[2 * k + 1, 1]));
end;

listbox1.Items.Append('这个图元的面积是 ');
listbox1.Items.Append(' ' + floattostr(obj.area) + ' ' + c_get_AreaUnit(map1.AreaUnit));//c_get_AreaUnit:获取面积的单位，自己写的函数，你可以删除掉
showmessage('这个图元的面积是 ' + floattostr(obj.area) + ' ' + c_get_AreaUnit(map1.AreaUnit));
listbox1.Items.Append(' ');
end;

end;