delphi中UTF8Deocde的问题

使用Utf8Decode处理UTF-8字符串时，有时候正常，有时候返回空值，看其源代码：

...

function UTF8Decode(Data: AnsiString):WideString;
begin
  SetLength(Result, Length(Data));
 SetLength(Data,MultiByteToWideChar(CP_UTF8,0,PAnsiChar(data),Length(Data),PWideChar(Result),Length(Data)));
end;

...

delphi的Utf8Decode在解码的时候遇到它认为不正确的字符就返回空串了,还是用winapi靠谱。

方法：

使用自定义转换函数：

uses windows;

function DecodeUtf8Str(const S:UTF8String): WideString;
var lenSrc,lenDst  : Integer;
begin
  lenSrc  := Length(S);
  if(lenSrc=0)thenExit;
  lenDst  := MultiByteToWideChar(CP_UTF8, 0, Pointer(S),lenSrc, nil, 0);
  SetLength(Result, lenDst);
  MultiByteToWideChar(CP_UTF8, 0, Pointer(S),lenSrc, Pointer(Result), lenDst);
end;
从数据库读取Unicode的中文编码，解码：

DecodeUtf8Str(UTF8String(Trim(dm.qPo.FieldByName('title').AsString)));

效果比Utf8Decode好，BDS2006+Win764位下通过。