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

Question

从网上找到了这个计算方法，但是不会用。
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分 
----------------------------------------------

Answer 1

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;
用这个试试

Answer 2

谢谢bee2518(迷茫ing)我有您上述的那一段代码，关键是如何调用呢？

Answer 3

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;

Answer 4

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