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

D-Nolan

已于 2023-03-25 23:18:50 修改

阅读量267

点赞数

分类专栏： delphi常用函数文章标签： delphi

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

本文链接：https://blog.csdn.net/gust2013/article/details/129774036

版权

delphi常用函数专栏收录该内容

38 篇文章 1 订阅

订阅专栏

应用场景

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

函数代码

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;
···