求多边形面积的计算问题？

[dacsd]

从网上找到了这个计算方法，但是不会用。


const MaxPointNum = 65535;
type
PXY = ^TXY;
TXY = record // 点的数据结构
x, y: single;
end;
XYArray = array[0..MaxPointNum] of TXY;
PXYArray = ^XYArray; // 线的数据结构




// 多边形坐标在 xys 中，点数在 nn 中
function AreaOfPolygon(xys: PXYArray; nn: integer):single;
var ii:integer;
ss: single;
begin
ss := 0;
for ii := 0 to nn-2 do
ss := ss + (xys^[ii].y+xys^[ii+1].y) * (xys^[ii].x-xys^[ii+1].x) / 2;
result := abs(ss);
end;




////为什么如下这样调用出现错误呢？编译可以通过


procedure TForm1.Button1Click(Sender: TObject);
var
xy: PXYArray;
begin
xy[0].x:=0;
xy[0].y:=0;
xy[1].x:=1;
xy[1].y:=2;
xy[2].x:=3;
xy[2].y:=3;
AreaOfPolygon(xy,3);
end;

end.


关键是如何初始化坐标点以及如何调用该函数
请高手帮忙解答，谢谢
暂时给100分，解决后再送100分
----------------------------------------------

[bee2518]

Type TPoints=Array of TPoint;
function AreaOfPolygon(xys: TPoints):single;
var ii,nn:integer;
ss: single;
begin
nn:=Length(xys);
ss := 0;
for ii := 0 to nn-2 do
ss := ss + (xys[ii].y+xys[ii+1].y) * (xys[ii].x-xys[ii+1].x) ;
result := abs(ss/2);
end;
用这个试试

[dacsd]

谢谢bee2518(迷茫ing)

我有您上述的那一段代码，关键是如何调用呢？

[redher]

procedure TForm1.FormCreate(Sender: TObject);
var
pointsA:Tpoints;
i:integer;
b:double;
begin
setlength(pointsA,3);
for i:= 0 to 2 do
begin
pointsa[i].X:=10*i+10;
pointsa[i].Y:=10*i+90;
end;
b:=areaofpolygon(pointsa);
showmessage(floattostr(b));

end;

[redher]

晕了,我points赋值是一个直线,你改下看看结果对不对,

[dacsd]

谢谢，测试三角形和正方形正确，接分

[dacsd]

发现错误，当三点在一条直线上时，其计算结果是错误的