|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2019/3/13 17:00:10 |
标题: |
Delphi的又一小缺陷: TDate赋值给Variant得到varDouble而不是varDate |
浏览:815 |
|
加入我的收藏 |
楼主: |
Delphi 10.3.1 32bit, Win 7 32bit
procedure TForm1.btnTimeToVariantClick(Sender: TObject); var d:TDate; t:TTime; v:Variant; begin d := Date(); t := Time();
v := d; Assert( VarType(v)=varDouble ); //通过
v := Variant(d); Assert( VarType(v)=varDouble ); //通过
v := VarFromDateTime(d); Assert( VarType(v)=varDate ); //通过
v := t; Assert( VarType(v)=varDouble ); //通过
v := VarFromDateTime(t);; Assert( VarType(v)=varDate ); //通过
end;
----------------------------------------------
UniKeeper V10.40 -- 您最贴心的个人数据管理助手 |
作者: |
|
2019/3/13 17:25:54 |
1楼: |
嗯,早就发现有这个问题,一个解决文案是变量用TDateTime类型。
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了……
|
作者: |
|
2019/3/13 19:09:22 |
2楼: |
TDateTime与Double没有本质区别
----------------------------------------------
-
|
|