定义常量数组

//包含十个点坐标的常量数组
Const
  C_Point : Array [0..2] of TPoint =((X:10;Y:20),(X:20;Y:30),(X:20;Y:50)); 

//定义常量字符串数组
const
  FieldArray:array [0..14] of string=('tradedate','pihao','unit','ID','EXP','mySize','ProduceEP',
                         'ProduceDate','imgstr','trademan','remark','matname','matcode','price','quantity');