摘要:
type TABC = 'A'..'G'; {定义子界} var abcArr: array[TABC] of Integer; {定义数组} abc: TABC; {定义子界变量} begin {数组赋值} abcArr['A'] := 11; abcArr['B'] := 22; abcArr... 阅读全文
posted @ 2008-01-09 00:32
万一
阅读(3035)
评论(0)
推荐(0)
摘要:
type TMyEnum = (Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday); {定义枚举} var weekArr: array[TMyEnum] of string; {定义数组} myEnum: TMyEnum; {定义枚举变量} begin {数组赋值} week... 阅读全文
posted @ 2008-01-09 00:21
万一
阅读(7337)
评论(0)
推荐(0)