摘要：
//取十六进制字符串第n字节值 字节之间有个空格function AGetByteAt(HexValue:string; n:integer):string;begin Result:=Copy(HexValue,(n-1)*3+1,2);end;//取十六进制字符串从第n字节开始的连续m个字节 字节之间有个空格function AGetHexSubstr(HexValue:string; n, m : integer):string;var i: Integer; temp: string;begin temp:=''; for i:=n to n+m-1 do temp:= 阅读全文