声明const的Integer类型的多维数组时的赋值
来源:互联网 发布:惠州市房地产数据统计 编辑:程序博客网 时间:2024/06/04 17:55
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;
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;
- 声明const的Integer类型的多维数组时的赋值
- Python的多维空数组赋值
- C++多维数组的声明和使用
- C++ 中复合类型声明的理解(尤其是指针数组/数组指针/多维数组的问题)
- 三维数组 多维数组 的声明 和添加
- js二维数组和多维数组的定义声明
- C++中数组的声明与赋值
- C++中关于复杂的多维数组声明的总结
- C#语言多维数组的声明与使用
- C#.NET常见问题(FAQ)-如何声明list的多维数组
- 指向const对象的const指针 typedef 理解复杂的const类型的声明
- 多维数组的问题
- 多维数组的动态分配
- 多维数组的实现
- 多维数组的实现
- 多维数组的动态分配
- 多维数组的应用
- 多维数组的初始化
- 权限系统应用概要分析
- 激活成功,试试先
- 数据并发
- 搜索引擎的十大秘密
- Record Management System从入门到精通系列之二
- 声明const的Integer类型的多维数组时的赋值
- AES加密算法设计及JAVA实现
- 对我而言,欧洲杯结束了
- .wav文件格式图解
- VB.NET特性---- Dllimport特性
- asdf
- test
- 恭贺开业!
- 数据访问层的第二个类(针对sqlserver)