Delphi中在字节数组的开头（或结尾）添加（或删除）一个字节

最新推荐文章于 2023-04-25 20:45:24 发布

原创最新推荐文章于 2023-04-25 20:45:24 发布 · 290 阅读

1 ·

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

收录于

delphi常用函数

当前文章被收录于：

delphi常用函数

38 篇文章 1 人学习

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

订阅专栏查看详情

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

应用场景

在字节数组的开头（或结尾）添加（或删除）一个字节

函数代码

function PopByteArray(var A: TBytes): Byte;
begin
  Assert(Length(A) > 0, 'A must be a non-empty array');
  Result := A[Pred(Length(A))];
  SetLength(A, Length(A) - 1);
end;
procedure PushByteArray(const B: Byte; var A: TBytes);
begin
  SetLength(A, Length(A) + 1);
  A[Pred(Length(A))] := B;
end;
function ShiftByteArray(var A: TBytes): Byte;
begin
  Assert(Length(A) > 0, 'A must be a non-empty array');
  Result := A[0];
  Move(A[1], A[0], Length(A) - 1);
  SetLength(A, Length(A) - 1);
end;
procedure UnShiftByteArray(const B: Byte; var A: TBytes);
begin
  SetLength(A, Length(A) + 1);
  Move(A[0], A[1], Length(A) - 1);
  A[0] := B;
end;