JSON文本文件导入到Sqlite3数据库(04)

1】Navicat for SQLite ,直接导入，会出现好多问题，即使导入成功，最后一个字经常会是乱码，这方法放弃

---

2】编程转换，JSON文本文件中有好多偏僻字，Delphi 里的UTF8toAnsi函数往往不成功，这方法放弃/因为Delphi自带的转换函数遇到其无法识别的字符串就返回空

 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;

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