將字符串轉換成 UTF8 編碼的函數

這種轉換一般用於網頁地址; 我不知道 Delphi 是不是有現成的函數, 用到了就寫了一個.

//函數:　　
function　ToUTF8Encode(str:　string):　string;　
var　
　b:　Byte;　
begin　
　for　b　in　BytesOf(UTF8Encode(str))　do　
　　Result　:=　Format('%s%s%.2x',　[Result,　'%',　b]);　
end;　
　
//測試:　
var　
　str:　string;　
begin　
　str　:=　'萬一';　
　str　:=　ToUTF8Encode(str);　
　ShowMessage(str);　//%E4%B8%87%E4%B8%80　
end;