delphi 中,怎么实现16进制字符串与ASCII码相互转换? 50
我知道把16进制字符串转成对应的ASCII码是用CHR函数,现在是想把ASCII码转成对应的16进制字符串,比如$35对应的ASCII码是5,现在要把5转为$35显示出来...
我知道把16进制字符串转成对应的ASCII码是用CHR函数,现在是想把ASCII码转成对应的16进制字符串,比如$35对应的ASCII码是5,现在要把5转为$35显示出来
展开
2个回答
展开全部
你什么意思,16进制字符串中每一个字符对应的不就是ASCII值吗?你举例表示你是什么意思。
虽然提问结束,我还是给你写了一个转换函数
function TForm1.AsciiToHex(str: string): string;
var
i:integer;
changestr:string;
begin
changestr:='';
for i:=1 to length(str) do
begin
changestr:=changestr+inttohex(ord(str[i]),2);
end;
AsciiToHex:=changestr;
end;
虽然提问结束,我还是给你写了一个转换函数
function TForm1.AsciiToHex(str: string): string;
var
i:integer;
changestr:string;
begin
changestr:='';
for i:=1 to length(str) do
begin
changestr:=changestr+inttohex(ord(str[i]),2);
end;
AsciiToHex:=changestr;
end;
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询