本文介绍了一个实用的函数，用于将从终端机读取的十六进制数据转换为对应的中文字符串。通过逐个解析十六进制字符并映射到对应的ANSI字符，实现了高效的转换过程。
从终端机中读取的十六进制转中文：
function TTools.hextostring(str: string): string;
var
s,t:ansistring;
i:integer;
begin
s:='';
i:=1;
while i< length(str) do begin
t:=str[i]+str[i+1];
s:=s+ansichar(hextoint(t));
i:=i+2;
end;
result:=s;
end;
注：一般就用ansichar换char,用ansistring换string 能解决大部分这类D7和D2010切换问题
扫一扫
763
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
