delphi将字符串转换成UTF8编码的函数

本文整理自网络，侵删。

 //函数:
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; 

相关阅读 >>

Delphi link() 精简打开网址

Delphi idhttp.get方法

Delphi 计算一个字符串在另一个字符串中出现的次数

Delphi登陆验证方法

Delphi 注入指定进程

Delphi 利用Delphi监视注册表的变化

Delphi 字符串前后翻转

Delphi 数据库char varchar nvarchar区别

Delphi 开发安卓时判断进入非活动

winsock 实现telnet后门

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi将字符串转换成UTF8编码的函数