delphi7-》delphi2010 中文乱码

从终端机中读取的十六进制转中文：

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切换问题