** 功能: utf8編碼的解碼
** 輸入參數:
** 作者:liubin
**日期:2011-02-15
** Str :要分割的字符串
** EndStr :分割符號
**返回值 :返回截取好的字符串數組
******************************************************************}
function Utf8Decode(const S: UTF8String): WideString;
var
L: Integer;
Temp: WideString;
begin
Result := '';
if S = '' then Exit;
SetLength(Temp, Length(S));
L := Utf8ToUnicode(PWideChar(Temp), Length(Temp) + 1, PChar(S), Length(S));
if L > 0 then
SetLength(Temp, L - 1)
else
Temp := '';
Result := Temp;
end;
摘自 #Define