delphi 检查数组值是否相等

在 Delphi 中，可以使用循环来检查数组中的值是否相等。以下是一个示例代码：

function IsArrayEqual(const A, B: array of Integer): Boolean;
var
  i: Integer;
begin
  // 首先检查数组长度是否相等
  if Length(A) <> Length(B) then
  begin
    Result := False;
    Exit;
  end;

  // 循环遍历数组，逐个比较元素是否相等
  for i := Low(A) to High(A) do
  begin
    if A[i] <> B[i] then
    begin
      Result := False;
      Exit;
    end;
  end;

  Result := True;
end;

你可以按照以下方式调用该函数来检查两个整数数组是否相等：

var
  arr1, arr2: array of Integer;
  isEqual: Boolean;
begin
  SetLength(arr1, 3);
  SetLength(arr2, 3);

  arr1[0] := 1;
  arr1[1] := 2;
  arr1[2] := 3;

  arr2[0] := 1;
  arr2[1] := 2;
  arr2[2] := 3;

  isEqual := IsArrayEqual(arr1, arr2);

  if isEqual then
    ShowMessage('数组相等')
  else
    ShowMessage('数组不相等');
end;

这段代码将输出 "数组相等"，因为两个数组的值是相等的。你可以根据自己的需求修改函数和示例代码。