数组的下标可以使用字符吗？

Question

请给个例子，谢谢!

Answer 1

可以procedure ss;
var
  i: array['a'..'c'] of integer;
begin
  i['a'] := 10;
  i['b'] := 20;
  i['c'] := i['a'] + i['b'];
  ShowMessage(IntToStr(i['c']));
end;下标类型可以为：整数、字符、枚举、子界、布尔

Answer 2

同意 LSF1982(温室的紫丁香) 
其实这样的问题试一试就知道了

Answer 3

当然了，可以使用任何有序类型，如布尔：
procedure TForm1.Button1Click(Sender: TObject);
var
  A: Array[Boolean] of String;
begin
  A[True]  := 'A';
  A[False]  := 'B';
  ShowMessage(A[True]);
end;————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 4

TData = (ONE,TWO,THREE);
myarray:array[ONE..THREE] of integer;
myarray[ONE]:=1;

Answer 5

其实是这样的数据：
data  group
---   -----
1      AAA
2      AAA
3      AAA
4      BBB
5      BBB我想得到一个这样的结果
aArr[AAA][0] =1
aArr[AAA][1] =2
aArr[AAA][3] =3
aArr[BBB][0] =4
aArr[BBB][0] =5就是用一个字段值做下标
有几组不确定，每组中有多少数据也不确定
就是一个动态多维数组