在使用DelphiXE3和SQLite3进行程序开发时，解决最后一个字符乱码

在使用DelphiXE3和SQLite3进行程序开发时，如果使用原版的SQLiteTable3，当使用UTF8Decode函数之后，可能依然存在乱码问题，一个表现就是，最后一个汉字显示为框，后面跟一个问号，其他的汉字解码正常。

后来跟踪了一下SQLiteTable3的源代码，从SQLite获取的字符串数据是正确的，但是因为TSQLiteTable的构造函数在读取SQLite返回的UTF8字符串时使用了setstring函数，强行将数据字段进行了转换，引起字符串长度出现错误，所以在UTF8Decode解码时出现了漏解码的问题。

这里给出一种解决方案，修复了该Bug。

1.将TSQLiteTable的构造函数Create中的setstring行改为：

Var

strStr: String;
strValue: PWideChar;

//****************************************

strStr := UTF8Decode(AnsiString(ptrValue));

strValue := PWideChar(strStr);
setstring(thisStringValue^,strValue,strlen(strValue));

因为在delphixe3中，setstring函数的第二个参数是PChar，也就是PWideChar类型。

2.在面在调用时，不需要再UTF8Decode解码

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!