数组参数传递问题:tmpselectedobj.Points:=pts;错误!

Question

如何传递一个四元素坐标数组到函数中：
procedure TFrmMain.SelectMapObject(const pts:array of TPoint;const index:integer;const otp:integer);
begin
   tmpselectedobj.Points:=pts;
   tmpselectedobj.id:=index;
   tmpselectedobj.otype:=otp;
   tmpselectedobj.selected:=true;
end;这句话：tmpselectedobj.Points:=pts;编译时通不过，说是类型不匹配，
tmpselectedobj.Points：Array[0..3] of TPoint如何解决阿？

Answer 1

Tpts=array[0..3] of TPoint;
procedure TFrmMain.SelectMapObject(const pts:TPts;const index:integer;const otp:integer);

Answer 2

type
  TArrayTPoint = array of TPoint;procedure TFrmMain.SelectMapObject(const pts:TArrayTPoint ;const

Answer 3

type
pTpts = ^Tpts;
Tpts=array of TPoint;
procedure TFrmMain.SelectMapObject(const pts:pTPts;const index:integer;const otp:integer);
begin
   tmpselectedobj.Points:=pts;
   tmpselectedobj.id:=index;
   tmpselectedobj.otype:=otp;
   tmpselectedobj.selected:=true;
end;这样行不？