张志峰的博客

水滴石川,积少成多。

导航

Delphi 数组的用法

Posted on 2012-07-06 15:49  ╰★张志峰★╮  阅读(665)  评论(0编辑  收藏  举报

Const

  ArrayPeriod: array[0..8] of string = ('[QJ]', '[QJ.ND]', '[QJ.BND]', '[QJ.JD]', '[QJ.YD]', '[QJ.BYD]', '[QJ.X]', '[QJ.Z]', '[QJ.R]');

当作常量用。

var
  //存储单位的固定字段
  ArrayDWFixFLD: array[0..4] of string =('P_CODE', 'DW_CODE', 'DW_NAME', 'USE_TYPE', 'AUTO_CRT_USER');
  //存储用户的固定字段
  ArrayUSERFixFLD: array[0..7] of string =('USER_CODE', 'USER_NAME', 'PSWD', 'VALID_DAYS', 'SEX', 'MUST_CHANGE', 'IS_VALID', 'CAN_FILTER');

当作静态数组用。

还有动态数组

setleng(数组名,长度);