逐位读取字节 - 简化/加速建议 - Delphi

Question

我有一个设备发送几个字节的状态信息，前 5 个字节是 40 个按钮的状态。每个位代表一个按钮，1 表示松开，0 表示按下。

因此，我正在使用这段代码进行结帐：

procedure TForm2.ServerUDPRead(AThread: TIdUDPListenerThread;
  AData: array of Byte; ABinding: TIdSocketHandle);
var received: array [0..4] of string; a1, a2 integer;
bits: array [0..40] of boolean;
begin

for a1 := 0 to 4 do
  Received[a1] := (ByteToBin(AData[a1]));

for a1 := 4 downto 0 do
  begin
    for a2 := 1 to 8 do
      begin
        if Copy(Received[a1], a2, 1) = '0' then bits[(4-a1)*8+(a2-1)]:=False else bits[(4-a1)*8+(a2-1)]:=True;
      end;
  end;

ByteToBin 是将字节转换为 8 位字符串的函数...

是否有另一种“更简单”、更简化且（我真正感兴趣的）更快的程序来实现我的需要，或者这种方式是否足够好？

我觉得它有点迟钝和肮脏......：/（虽然最终，它的意图......所以感兴趣主要是出于学习的角度）

Answer 1

这样你就可以直接从 AData 转换为布尔数组：

for i := 0 to 39 do
  bits[i] :=  (AData[i div 8] and (1 shl (i mod 8))) <> 0;

我不确定布尔值的顺序是否完全相同，我失去了所有索引的计数:)

Answer 2

另一种方法是使用集合：

type
  TByteSet = set of 0..7;
...
  for I := 0 to 39 do begin
    bits[I] := (I mod 8) in TByteSet(AData[I div 8]);
  end;