如何在 Delphi 中表示坐标网格？

Question

我试图用二维数组表示二维坐标网格。 问题是，由于 Delphi 分配数组的方式，声明数组会翻转 X 和 Y 坐标。 这使得读取数组元素变得困难。 例如，以下程序在尝试打印时给出范围检查错误：

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

{$R+}
procedure play;
var
   grid: array of array of boolean;
   x, y: integer;
begin
  try
   setLength(grid, 3, 8);
   grid[1, 5] := true;
   for y := low(grid) to high(grid) do
   begin
      for x := low(grid[y]) to high(grid[y]) do
      begin
         if grid[x, y] then
            write('X')
         else write('.');
      end;
      writeln;
   end;
   readln;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end;

begin
   play;
end.

我必须向后写入索引（如果 grid[y, x] 那么）以防止发生这种情况，但随后网格会横向打印，其中 X显示在 (5, 1) 而不是 (1, 5)。 如果我尝试通过 setLength(grid, 3, 8); 来更改网格的形状 那么下一行的赋值会给出范围检查错误。 我最终不得不向后写所有坐标，每当我忘记它们是向后的时，程序中就会发生不好的事情。

有谁知道有什么技巧可以使坐标顺序直观地工作吗？

Answer 1

您只需在 for 语句中给出适当的界限即可。 将 low 和 high 函数应用于多维数组时，务必要小心谨慎。 对于当前示例（二维数组），low(grid) 和 high(grid) 将返回第一维（行）的限制，而 low(grid[0]) 和 high(grid[0]) 将返回返回第一列的限制（假设它存在）。 请注意下面更改的 for 限制：

program Play_console;

{$APPTYPE CONSOLE}

uses
  SysUtils;

{$R+}
procedure play;
var
   grid: array of array of boolean;
   x, y: integer;
begin
  try
   setLength(grid, 3, 8);
   grid[1, 5] := true;
   for y := low(grid[0]) to high(grid[0]) do
   begin
      for x := low(grid) to high(grid) do
      begin
         if grid[x, y] then
            write('X')
         else write('.');
      end;
      writeln;
   end;

   readln;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end;

begin
   play;
end.

我对此进行了测试，它似乎完全符合您的要求。

Answer 2

[y, x] 是大多数（所有？）编程语言中常见且标准的数组访问。 如果您不这样做，任何人查看您的代码都会感到困惑。

Answer 3

我想说，标准表示不仅与一般编程约定一致，它与一般绘图一致。 在方格纸上绘制 [1,4]，您将得到与第二个（实际结果）示例中相同的结果，但 y 轴在屏幕坐标中翻转，但您并没有抱怨这一点。

更具体地说，x 轴始终是水平的，y 轴始终是垂直的。 这就是你的例子所显示的。 这不是颠倒过来的。

我想说只是习惯而已。