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 文件，文件夹删除移动和拷贝

Delphi 通过递归来实现搜索文件

Delphi的ttreeview类使用大全

Delphi编程获取系统当前进程、窗口句柄、文件属性

Delphi xe 关闭android应用

Delphi 透明窗体

Delphi adoconnection1连接mssql数据库方法

Delphi 关闭sql server 数据库所有使用连接

firemonkey 做 app 的界面设计方法研究

Delphi 根据快捷方式路径取源文件地址

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

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