2008-10-4 21:25
bincom
报告问题 CnDHibernate(D2009) 升级BUG
本人在测试（Podo）时遇到 DHibernateQuery调用get取得对象时，发现所有string属性都取不到值，就跟踪一下，发现
这里有BUG:
function TCnDHibernateQuery.get(TableName: string; pkName: string; pkValue: Variant): TObject;
...
if (tk = tkString) or (tk = tkLString) or (tk = tkWString) then //Delphi2009 是 tkUString
...
修改后可以使用，其它功能暂未测到问题，估计不止这一处，请相关人员检查一下。
2008-10-5 09:29
Passion
好的谢谢报告。我们检查一下其他地方。
2008-10-5 10:47
rarnu
又是字符串的问题。。。又要大改了。。。
2008-10-7 10:16
Passion
我先查找了一下WString，先加上UString。。。
2008-10-7 11:06
rarnu
加UString必须加编译预处理的。。。。小心呀。。。
我一会下载代码来看看
2008-10-7 11:08
Passion
嗯，编译预处理用了CnPack.inc里头的UNICODE_STRING
2008-10-8 23:42
bincom
有5个 pas 文件需要改!
CnDHibernateUtils.pas,
CnDHibernateSubQueryAdv.pas,
CnDHibernateClasses.pas,
CnDHibernateQueryAdv.pas,
CnDHibernateBase.pas
一样的代码应该改成一个过程. 免个同时改多个地方。