Delphi中比较两个字节数组是否一模一样

原创已于 2023-03-25 23:18:50 修改 · 432 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

delphi常用函数

当前文章被收录于：

delphi常用函数

38 篇文章 1 人学习

记录Delphi编程中遇到的常用函数，持续更新中

订阅专栏查看详情

当前文章被以下社区和专栏收录：

于 2023-03-25 23:11:54 首次发布

该文章提供了一个Delphi函数，用于比较两个字节数组（B1和B2）在元素数量和每个元素值上的完全一致性。函数首先检查数组长度，然后遍历每个元素进行逐个比较，一旦发现不匹配则立即返回False。在提供的测试案例中，不同长度的数组B1和B2并未被判断为相等。

应用场景

有两个字节数组，需要比较是否一模一样，包括比较元素的个数，一个函数搞定无需再手动处理

函数代码

function ByteArraysEqual(const B1, B2: array of Byte): Boolean;
var
  I: Integer;
begin
  Result := Length(B1) = Length(B2);
  if Result then
  begin
    for I := 0 to High(B1) do
    begin
      if B1[I] <> B2[I] then
      begin
        Result := False;
        Exit;
      end;
    end;
  end;
end;

测试

procedure TForm1.FormCreate(Sender: TObject);
const
  B1: array[0..2] of Byte=($01, $02, $03);
  B2: array[0..4] of Byte=($01, $02, $04, $05, $06);
begin
  if ByteArraysEqual(B1, B2) then
    ShowMessage('123');
end;
···