应用场景
有时候需要获取一个字节第一次出现的位置,有时候是从左边开始,有时候是从右边开始。
函数代码
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;