读取程序后程序停止 (delphi)

Question

我的程序停止读取更多行并在此过程之后结束程序，就像它之后的 'end.' （但不是）：

  Procedure BubbleSort;
  var i, j : integer;
  begin
    for i := 0 to count - 1 do begin
      for j := count - 1 downto i do
        if (together[j] > together[j - 1]) then
          Swap(together[j - 1], together[j]);
    end;
  end;

Answer 1

我猜问题出在越界数组访问上。您访问索引 -1。通过将外循环更改为：

来避免这种情况

for i := 1 to count - 1 do begin

我建议您启用范围检查，以便您可以通过提供信息的运行时错误了解越界数组访问。

读取程序后程序停止 (delphi)

program stops after reading procedure (delphi)

delphi

pascal

bubble-sort