Delphi里申明一个数组array of byte = ($00,$**,$**,$**,$**,$00); 我从服务器收到一段数据存在如上的一个6字节数组中,我要判断中间的4个字节是不是($80,$00,$00,$01),要怎么写呢,非要一个个字节比较吗?
很简单... 假设你的数组变量为 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;