声明const的Integer类型的多维数组时的赋值

最新推荐文章于 2025-07-08 14:04:42 发布

jacky_shen

最新推荐文章于 2025-07-08 14:04:42 发布

阅读量1.4k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： integer string

本文链接：https://blog.youkuaiyun.com/jacky_shen/article/details/23503

Delphi 专栏收录该内容

1 篇文章

订阅专栏

博客展示了多维数组的定义与使用，定义了一维到四维的整数数组，如TCube1 - TCube4，还定义了对应常量数组Maze1 - Maze4。通过循环遍历这些数组，将数组元素信息以字符串形式输出到Memo1中，涉及整数与字符串的处理。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

type
TCube4 = array[0..1, 0..1, 0..1, 0..1] of Integer;
TCube3 = array[0..1, 0..1, 0..1] of Integer;
TCube2 = array[0..1, 0..1] of Integer;
TCube1 = array[0..1] of Integer;

const
Maze4: TCube4 = ((((0, 1), (2, 3)), ((4, 5), (6, 7))), (((8, 9), (10, 11)), ((12, 13), (14, 15))));
Maze3: TCube3 = (((0, 1), (2, 3)), ((4, 5), (6, 7)));
Maze2: TCube2 = ((0, 1), (2, 3));
Maze1: TCube1 = (0, 1);

var
i, j, k, l: Integer;
S: string;

begin
for i := 0 to 1 do
    for j := 0 to 1 do
    begin
      S := '';
      S := Format('Maze[%d, %d]', [i, j]);
      S := S + '=>' + IntToStr(Maze2[i, j]);
      Memo1.Lines.Add(S);
    end;

Memo1.Lines.Add('');

for i := 0 to 1 do
    for j := 0 to 1 do
      for k := 0 to 1 do
      begin
        S := '';
        S := Format('Maze3[%d, %d, %d]', [i, j, k]);
        S := S + '=>' + IntToStr(Maze3[i, j, k]);
        Memo1.Lines.Add(S);
      end;

Memo1.Lines.Add('');

for i := 0 to 1 do
    for j := 0 to 1 do
      for k := 0 to 1 do
        for l := 0 to 1 do
        begin
          S := '';
          S := Format('Maze4[%d, %d, %d, %d]', [i, j, k, l]);
          S := S + '=>' + IntToStr(Maze4[i, j, k, l]);
          Memo1.Lines.Add(S);
        end;

end;