非法分配错误是什么？如何纠正？

问题描述

procedure tri_selection(t: tab; n: Integer);
var
 i,j,min,aux: Integer;
begin

  for i := 1 to n - 1 do
  begin

    min := i;

    for j := i + 1 to n do
      if t[j] < t[min] then
        j := min;

    if min <> i then
    begin
      aux := t[i];
      t[i] := t[min];
      t[min] := aux;
    end;

  end;

end;

这应该是正确的且众所周知的代码，用于将整数从下到上排列，但是编译器仍然坚持说“非法分配给for循环'j'变量”。

出什么问题了？

解决方法

问题在这里：

for j := i + 1 to n do
  if t[j] < t[min] then
    j := min;                      // <-- Not allowed to assign to FOR loop variable j

不允许您分配给for循环变量。

也许你想写

for j := i + 1 to n do
  if t[j] < t[min] then
    min := j;

,

您在过程标题中的t之前忘记了var