数组与子界

标签：logs   ref   color   htm   lan   调用   for   遍历   com   

万一老师博客：http://www.cnblogs.com/del/archive/2008/01/09/1031199.html

type
  TABC = ‘A‘..‘G‘;                {定义子界}
var
  abcArr: array[TABC] of Integer; {定义数组}
  abc: TABC;                      {定义子界变量}
begin
  {数组赋值}
  abcArr[‘A‘] := 11;
  abcArr[‘B‘] := 22;
  abcArr[‘C‘] := 33;
  abcArr[‘D‘] := 44;
  abcArr[‘E‘] := 55;
  abcArr[‘F‘] := 66;
  abcArr[‘G‘] := 77;

  {调用数组}
  ShowMessage(IntToStr(abcArr[‘G‘])); {77}

  {遍历数组}
  for abc := Low(abcArr) to High(abcArr) do
  begin
    ShowMessage(IntToStr(abcArr[abc])); {11 22 33 44 55 66 77}
  end;
end;

数组与子界

标签：logs   ref   color   htm   lan   调用   for   遍历   com   

原文地址：http://www.cnblogs.com/del88/p/6363032.html