（急）在程序中分析Html中代码，如何见区位码字符串如何转换成为正常字符？？

Question

原始数据：
('156798','5550','0','85','挪威癿,'高柏維克','孟達斯金','06/14 12:00AM','972730','0.5','0.94','0.98','972732','3.5/4','0.90','1.00','','','','','972736','0/0.5','0.84','-0.96','972737','1.5/2','0.98','0.90','False','0','0','False','a','a','False');
期望结果：（与IE中显示相同）
('156798','5550','0','85','挪威癿,'高柏維克','孟達斯金','06/14 12:00AM','972730','0.5','0.94','0.98','972732','3.5/4','0.90','1.00','','','','','972736','0/0.5','0.84','-0.96','972737','1.5/2','0.98','0.90','False','0','0','False','a','a','False');请教如何实现原始数据－》期望结果 ， 请各位大侠指点！

Answer 1

//高柏維克  =>
  ShowMessage(
    ''+WideChar(39640)+WideChar(26575)+WideChar(32173)+WideChar(20811)
  );

Answer 2

多谢graycarl(gray) ，请问能不能批量转换，如
source =('156798','5550','0','85','挪威癿,'高柏維克','孟達斯金','06/14 12:00AM','972730','0.5','0.94','0.98','972732','3.5/4','0.90','1.00','','','','','972736','0/0.5','0.84','-0.96','972737','1.5/2','0.98','0.90','False','0','0','False','a','a','False');dest:= 函数（source);主要是想通用一点，因为每次逐个提前太有针对性了

Answer 3

遍历字符串 提取 &#XXXXX; 这样的模式
然后 Result := Result + WideChar(StrToInt(XXXXXX))