二维数组元素如何组合呢？

[gzmitch]

比如我定义有以下二维数组：
Arr : array[1..3,1..3] of Char = (('A','B','C'),('D','E','F'),('G','H','I'));
我如何把里面的元素的全部组合列出来呢？
比如这样：
a
b
c
ad
ae
af
bd
be
bf
cd
ce
cf
adg
adh
adi
aeg
aeh
aei
等等....

谢谢！

[gzmitch]

补充：('A','B','C')只和('D','E','F'),('G','H','I')组合，不再和('A','B','C')组合这样的 比如 红，黄，蓝 大，小 1，2 组合： 红大，红小，红大1，红大2，黄大，黄小，黄大1，黄大2，黄小1，黄小2，这样。。。

[gzmitch]

修改一下，如果能把最多元素的组合列出来也行了。 比如 adg adh adi bdg bdh bdi cdg cdh cdi aeg 等等

[santiaodahan]

三组各取一个值，并且按先后顺序排列。代码如下，或许还能简化：

for i:=1 to 3 do
     for j:=1 to 3 do
          for k:=1 to 3 do
          Memo1.Lines.Add(Arr[1,i]+Arr[2,j]+Arr[3,k]);

[gzmitch]

引用 3 楼 santiaodahan 的回复:

三组各取一个值，并且按先后顺序排列。代码如下，或许还能简化：

for i:=1 to 3 do
     for j:=1 to 3 do
          for k:=1 to 3 do
          Memo1.Lines.Add(Arr[1,i]+Arr[2,j]+Arr[3,k]);

谢谢！的确是这样。