Delphi中返回一个字节在字节数组中第一次出现的位置

最新推荐文章于 2024-10-27 14:56:14 发布

原创最新推荐文章于 2024-10-27 14:56:14 发布 · 296 阅读

2 ·

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

收录于

delphi常用函数

当前文章被收录于：

delphi常用函数

38 篇文章 1 人学习

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

订阅专栏查看详情

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

文章介绍了两个函数，功能分别是从数组中查找指定字节的第一次出现位置（functionIndexOfByte）和最后一次出现位置（functionLastIndexOfByte）。这两个函数遍历输入的字节数组，分别从左到右和从右到左进行搜索，找到匹配项后返回其索引。

应用场景

有时候需要获取一个字节第一次出现的位置，有时候是从左边开始，有时候是从右边开始。

函数代码

function IndexOfByte(const B: Byte; const A: array of Byte): Integer;
var
  I: Integer;
begin
  Result := -1;
  for I := 0 to Pred(Length(A)) do
  begin
    if A[I] = B then
    begin
      Result := I;
      Exit;
    end;
  end;
end;

function LastIndexOfByte(const B: Byte; const A: array of Byte): Integer;
var
  I: Integer;
begin
  Result := -1;
  for I := Pred(Length(A)) downto 0 do
  begin
    if A[I] = B then
    begin
      Result := I;
      Exit;
    end;
  end;
end;