如何检查用户是否将TDateEdit留空？

Question

我在Lazarus上使用了TDateEdit控件，我将日期格式设置为DMY。所以我在日期输入框中看到了用户的一些字符，如'__/__/____'。

我担心的是我不希望用户将此字段留空，因此我尝试将以下代码作为测试：

  if dtWeekEndingDate.Date = 0 Then
     begin
       Errors := true;
       showmessage ('blank');
     end;

代码似乎做了我想要的但我不确定这是否正确。

上述方法是检查未设置或未输入日期的正确方法吗？我使用了 .Text 属性，但它似乎不起作用。

谢谢！

Answer 1

是的，如果您可以将0（零= 30.12.1899 00:00）视为空白＆＃39;申请日期。您只需输出“空”即可看到此信息。 TDateEdit控件：

ShowMessage(FormatDateTime('DD MM YYYY hh:nn',DateEdit1.Date));

如果此日期在您的案例中是有效且可信的条目，则使用onChange事件设置布尔值以输入内容或直接检查并处理TDateEdit控件的另一个属性：

DateEdit1.Text

当然，你可以使用一些很好的组件来处理这种问题＆＃39;如： ZVDateTimeControls