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

 

1  function  DecodeUtf8Str( const  S: UTF8String): WideString;
2  var  lenSrc, lenDst  : Integer;
3  begin
4    lenSrc  : =  Length(S);
5     if (lenSrc = 0 ) then  Exit;
6    lenDst  : =  MultiByteToWideChar(CP_UTF8,  0 , Pointer(S), lenSrc,  nil ,  0 );
7    SetLength(Result, lenDst);
8    MultiByteToWideChar(CP_UTF8,  0 , Pointer(S), lenSrc, Pointer(Result), lenDst);
9  end ;

 

 

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

转载于:https://www.cnblogs.com/lojon/archive/2010/05/03/1726470.html