写的伪代码你看思路, 部分方法可能写的不对，你看意思应该明白
var
ms: TMemoryStream;
b: Byte;
begin
s:='B41E0100000001000725'；
ms:=TMemoryStream.Create;
len := len(s) / 2; // 取字符串长度
for i := 0 to len - 1
begin
b := strtoint('$' + midstr(s, i*2+1, 2); // 循环截取2位，转换为整数
ms.write(b, 1); // 写入一个字节
end;
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024