javascript有一个encodeURI函数， 用Delphi如何实现？

Question

javascript有一个encodeURI函数， 用Delphi如何实现？ 此函数可以把 %E6%B5%8B%E8%AF%95 解成“测试” 

Answer 1

if str='%E6%B5%8B%E8%AF%95' then
str:='测试';

Answer 2

uses  ComObj;var
  sc: OleVariant;
  Words:string;
begin
  sc := CreateOleObject('MSScriptControl.ScriptControl.1');
  sc.Language :='javascript';
  Words:='测试';
  Words:=sc.Eval('escape('''+Words+''')');
  showmessage( words );
  words:=sc.Eval('unescape('''+Words+''')');
  showmessage( words );
end;

Answer 3

uses  ComObj;var
  sc: OleVariant;
  Words:string;
begin
  sc := CreateOleObject('MSScriptControl.ScriptControl.1');
  sc.Language :='javascript';
  Words:='测试';
  Words:=sc.Eval('encodeURI('''+Words+''')');
  showmessage( words );
  words:=sc.Eval('decodeURI('''+Words+''')');
  showmessage( words );
end;

Answer 4

http://www.9cpp.com/Ds/Example/20070617/298.html

Answer 5

失踪的月亮的办法不错。
不过我还是想不去依靠外力，光用delphi来写函数。
辛苦了查了几次资料，终于搞定。实际上就是下个UTF-8--->Ansi的过程。