在Delphi中声明一个TDateTime作为一个Const

发布时间：2020-12-15 10:19:52 所属栏目：大数据来源：网络整理

导读：据我所知，没有办法这样做，但我会问，以防有人知道如何做到这一点。如何在Delphi中声明一个日期作为const？我发现的唯一解决方案是使用数字等价物，这是一种痛苦的维护，因为它不是人类可读。 const Expire : TDateTime = 39895; // Is actually 3/23/2009

据我所知，没有办法这样做，但我会问，以防有人知道如何做到这一点。如何在Delphi中声明一个日期作为const？

我发现的唯一解决方案是使用数字等价物，这是一种痛苦的维护，因为它不是人类可读。

const
  Expire : TDateTime = 39895; // Is actually 3/23/2009

我想要做的是这样的：

const
  Expire : TDateTime = TDateTime ('3/23/2009');

要么

const
  Expire : TDateTime = StrToDate('3/23/2009');

所以让我知道，如果这是一个功能请求，或者如果我只是错过了如何做到这一点(是的，我知道这似乎是一件奇怪的事情想要…)

解决方法

唯一的？可能的方式，但可能不是你要找的：

const
{$J+}
  Expire: TDateTime = 0;
{$J-}

initialization
  Expire := EncodeDate(2009,3,23);

（编辑：李大同）

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