delphi DecodeUtf8Str解决系统自带UTF8解码缺陷

本文整理自网络，侵删。

 
//delphi DecodeUtf8Str解决系统自带UTF8解码缺陷
 function DecodeUtf8Str(const S: UTF8String): WideString;
 var lenSrc, lenDst  : Integer;
 begin
   lenSrc  := Length(S);
   if(lenSrc=0)then Exit;
   lenDst  := MultiByteToWideChar(CP_UTF8, 0, Pointer(S), lenSrc, nil, 0);
   SetLength(Result, lenDst);
   MultiByteToWideChar(CP_UTF8, 0, Pointer(S), lenSrc, Pointer(Result), lenDst);
 end;

//因为Delphi自带的转换函数遇到其无法识别的字符串就返回空，以上函数可解决该问题。
 

相关阅读 >>

Delphi xe 共享一个之前封装的多进程共享内存的memorystream

Delphi 删除字符串中指定字符

Delphi 结束360safe和360保险箱进程

Delphi 批量给每个字符加括号

Delphi逐个读取access中的数据

Delphi 常用4种对话框

Delphi xmldocument控件之xml

Delphi xe 安卓 memo设置字体颜色

Delphi 的内存操作函数(1): 给字符指针分配内存

Delphi 判断当前程序是否是活动窗口

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

转载请注明出处：木庄网络博客 » delphi DecodeUtf8Str解决系统自带UTF8解码缺陷