Question

在delphi中，怎样声明一个包含十个点坐标的常量数组？

Answer 1

Const
C_Point : Array [0..2] of TPoint =((X:10;Y:20),(X:20;Y:30),(X:20;Y:50)); //举例：3个

procedure TForm1.FormCreate(Sender: TObject);
Var
P:Tpoint;
begin
P := C_Point[0];//提取方法的一种
end;

Answer 2

const
zuobiao : array[1..10]of array[1..2]of integer=
((1,1),(2,2),(3,3),(4,4),(5,5),(6,6),(7,7),(8,8),(9,9),(10,10));
//label1.Caption:=inttostr(zuobiao[1,1]);调用第一个点的x坐标
//label1.Caption:=inttostr(zuobiao[1,2]);调用第一个点的y坐标

Answer 3

const
C_x : array[1..10] of integer=(1,2,3,4,5,6,7,8,9,10);//x坐标
C_y : array[1..10] of integer=(1,2,3,4,5,6,7,8,9,10);//y坐标