Kommen da noch mehr Bytes? Wenn es sich nur um 3 handelt, dann wird die Case-Anweisung nicht Meter lang.
Delphi-Quellcode:
Case Bytes[0]
of
0..111: Bytes[1] := ReadByte;
126: Bytes[1] := ReadByte;
127: Bytes[1] := ReadByte;
128..159: ;
else raise Exception.Create('
Unerwarteter Wert');
end;