如何将中文字符串，转换成十六进制的字符串？(20分)

如何将中文字符串，转换成十六进制的字符串？<br>如把‘你好’两字转成：%C4%E3%BA%C3<br>如何实现？我没分,大家帮帮忙,谢谢

Function ConvertStrToHex(Value : string):string;//把字符串转化为16进制数<br>var tempHex : string[2];<br>&nbsp; &nbsp; i : integer;<br>begin<br>&nbsp; Result := '';<br>&nbsp; if trim(Value) = '' then Exit;<br>&nbsp; tempHex := '';<br>&nbsp; for i := 1 to Length(Value) do<br>&nbsp; begin<br>&nbsp; &nbsp; tempHex := IntToHex(Ord(Value),2);<br>&nbsp; &nbsp; Result := Result + tempHex;<br>&nbsp; end;<br>end;<br>请参看我的笔记:http://www.delphibbs.com/keylife/iblog_show.asp?xid=4707

OK，非常感谢jbaman!<br>已经给分了，请查收