Question

DELPHI里byte型数组取值与比较

Delphi里申明一个数组array of byte = ($00,$**,$**,$**,$**,$00);
我从服务器收到一段数据存在如上的一个6字节数组中，我要判断中间的4个字节是不是($80,$00,$00,$01),要怎么写呢，非要一个个字节比较吗？

没钱了。。。有没有好心人帮忙的！

Answer 1

很简单...
假设你的数组变量为 a，并且下标从 0 开始：
var
a: YourArrayType;
p: PInteger;
begin
...
p := @a[1]; //指向第二个字节
if p^ = $01000080 then // Intel 处理器的整数高位在高地址区，所以要反过来
...
end;
原理就是：4个字节是一个整数的空间，直接比较一个整数变量和一个常数是否相等
如果你要判断的字节数超过8个，或者($80,$00,$00,$01)是变化的，这个方法就不行了，要用 CompareMem 来比较，速度要慢一些：
var
a: YourArrayType;
b: YourConst;
begin
...
if CompareMem(@a, @b, SizeOf(b)) then
...
end;

Answer 2

Byte型数组可以按以下方法操作：

1. 定义

   var

      a:array [0..10] of Byte;//11个元素的数组

      b:array of byte;//动态数组

2. 取值

   c:=a[0];

3. 比较

   if (a[2]<b[3]) then...

4. 取得数组大小

   k=Length(b);