我从串口接收到数据 比如是（qw3eqw）
我想把它转化为16进制数据 即71 77 33 65 71 77
请问怎么搞啊 谢谢
then
begin
memo1.Text:= memo1.Text+mscomm1.input;
begin
for i:=1 to 50 do
b[i]:=copy(a,i,1);
// c[i]:=ord(b[i]);
memo2.Text:=memo2.Text+b[i];
end;
改怎么改啊 谢谢
var
src,des: string;
i: integer;
begin
src := edt1.Text;// 要转化的字符串
des := '';
for i := 1 to Length(src) do
begin
des := des + IntToHex(Ord(src[i]),2) + ' ' ;
end;
edt2.Text := des; //转化后的字符串
end;
src,des: string;
i: integer;
begin
src := edt1.Text;// 要转化的字符串
des := '';
for i := 1 to Length(src) do
begin
des := des + IntToHex(Ord(src[i]),2) + ' ' ;
end;
edt2.Text := des; //转化后的字符串
end;
温馨提示：答案为网友推荐，仅供参考
第1个回答 2009-07-22
36进制转换成16进制,慢慢算吧.
