本文介绍了一个将十六进制字符串转换为字符数组的过程。通过一个具体的程序流程，演示了如何实现从十六进制表示的数据到实际字符数据的转换。此过程对于处理网络通信、文件读写等场景中出现的十六进制数据尤为重要。
// 十六进制字符串 换成字符数组转
procedure StringToByte(var aData: array of Byte; sStr: string;
iBeginIndex: integer);
var
i, iDataLen: integer;
begin
iDataLen := length(sStr);
if (iDataLen mod 2) <> 0 then
Exit;
for i := 0 to Trunc(iDataLen / 2) - 1 do
aData[iBeginIndex + i] := StrToInt('$' + Copy(sStr, i * 2 + 1, 2));
end;
procedure StringToByte(var aData: array of Byte; sStr: string;
iBeginIndex: integer);
var
i, iDataLen: integer;
begin
iDataLen := length(sStr);
if (iDataLen mod 2) <> 0 then
Exit;
for i := 0 to Trunc(iDataLen / 2) - 1 do
aData[iBeginIndex + i] := StrToInt('$' + Copy(sStr, i * 2 + 1, 2));
end;
扫一扫
309
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
