delphi 检查数组值是否相等
时间: 2023-08-13 09:04:37 浏览: 146
在 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;
这段代码将输出 "数组相等",因为两个数组的值是相等的。你可以根据自己的需求修改函数和示例代码。