关于文本转换为BYTE数组的问题,请大家帮忙修改代码
利用下面的代码把例如25 00 07 00 00 00 08 80的文本转换为BYTE数组(发包用)时发现最后一位,即80无法正确转换,有时会出现00的情况


//调用
Len := BinaryDecode(Edit1.Text, @byt[0], sizeof(byt))+1;//Edit1.Text里面是如上的文本数据
Memo1.Lines.Add(IntToStr(byt[Len-1]));//用这句话显示换后的数组最后一位,有时会显示成0,说明转换时出了问题,请参考下面的转换代码

//变量声明
Byt:array [0..1000] of Byte;//发包内容

//转换程序
function GetByte(const V: Char): Byte;
begin
case V of
'a '.. 'f ':
Result := Ord(V) - Ord( 'a ') + 10;
'A '.. 'F ':
Result := Ord(V) - Ord( 'A ') + 10;
else
Result := Ord(V) - Ord( '0 ');
end;
end;

function BinaryDecode(const S: string; output: PByte; outlen: Integer): Integer;
var
R: PByte;
P: PChar;
I: Integer;
begin
Result := Length(S) div 3;
if outlen < Result then
raise Exception.Create( 'outlen too small ');

P := PChar(S);
R := output;
for I := 1 to Result do
begin
R^ := GetByte(P[0]) * 16 + GetByte(P[1]);
Inc(R);
Inc(P, 3);
end;
end;


[解决办法]
那是你的
Len := BinaryDecode(Edit1.Text, @byt[0], sizeof(byt))+1 //这里多加了一个1了,去掉