带有多个 AND 条件的 IF 语句出错

Question

我有这些控件 TDateTimePicker、TComboBox、Tedit 和 TButton。默认情况下禁用 TButton。我想要实现的是在所有其他控件都已填充或不为空时启用 TButton。

使用以下代码，填充时以 TDateTimePicker 开头的所有 3 个控件都没有任何问题，它按预期工作。

当我填充 TComboxBox 后跟 TEdit 时出现错误，即使 TDateTimePicker 尚未填充，它也会启用 TButton。反之亦然，我将填充 TEdit，然后填充 TComboBox，它启用了 TButton。

从下面的代码中，我预计 TButton 不会启用，除非所有 3 个控件都被填充。

我（一整天）一直在试图弄清楚这个错误是如何发生的。

我会感谢那里的任何人帮助我解决这个问题。

procedure TfrmHolidays.EnableSaveButton;
begin
if (edtHolidayName.Text <> NullAsStringValue) and (cmbHolidayType.ItemIndex <> -1)and (dtpHolidayDate.Date <> 0) then
  begin
    btnHolidaySave.Enabled := True;
  end
  else
  begin
    btnHolidaySave.Enabled := False;
  end;
end;

procedure TfrmHolidays.dtpHolidayDateChange(Sender: TObject);
begin
  EnableSaveButton;
end;

procedure TfrmHolidays.cmbHolidayTypeChange(Sender: TObject);
begin
  EnableSaveButton;
end;

procedure TfrmHolidays.edtHolidayNameChange(Sender: TObject);
begin
  EnableSaveButton; // triggers enable btnHolidaySave button
end;

顺便说一句，我有更多与使 TDateTimePicker 为空白相关的代码，我认为这没有问题。我还尝试在 If 语句中嵌套每个条件，但仍然出现错误。此外，我一次测试了每个条件，它工作正常。

更新： 以下是我初始化 dtpHolidayDate.Date 的方式：

procedure TfrmHolidays.FormCreate(Sender: TObject);
begin
  DateTime_SetFormat(dtpHolidayDate.Handle, ' ');
  FDTMDateEmpty := True;
end;

procedure TfrmHolidays.dtpHolidayDateCloseUp(Sender: TObject);
begin
  DateTime_SetFormat(dtpHolidayDate.Handle, PChar('MMM dd yyyy (ddd)'));
end;

procedure TfrmHolidays.dtpHolidayDateChange(Sender: TObject);
begin
  FDTMDateEmpty := False;
  EnableSaveButton; // same and updated procedure above
end;

Answer 1

正如上面的 cmets 所指出的，您没有 TDateTimePicker 的初始化值。

你想要的是让它默认为一个合理的日期，而不是设置为 0 - 这对用户没有任何帮助。

我会介绍一个布尔标志，一旦设置了 TDateTimePicker，您就可以自行设置。

您可以在 OnChange 事件处理程序中设置此标志。

比如：

interface

protected
  blMyDTFlag: Boolean;
...

implementation
  function TfrmHolidays.dtpHolidayDateChange(Sender: TObject);
  begin
    Self.blMyDTFlag:=True;
  end

procedure TfrmHolidays.EnableSaveButton;
begin
if (edtHolidayName.Text <> '') and
   (cmbHolidayType.ItemIndex <> -1) and
   (Self.dtMyDTFlag) then
    btnHolidaySave.Enabled := True
  else
    btnHolidaySave.Enabled := False;
end;

Answer 2

虽然问题中没有显示，但我可以猜到您将日期初始化为

dtpHolidayDate.Date := 0;

此后，针对 0 测试日期将（很可能）失败，因为时间部分仍包含创建控件的时间。

你可以初始化

dtpHolidayDate.DateTime := 0;

然后您可以照常测试日期。

您也可以使用SameDate 进行比较。

uses
  dateutils;


if (edtHolidayName.Text <> NullAsStringValue) and (cmbHolidayType.ItemIndex <> -1)
    and (not SameDate(dtpHolidayDate.Date, 0)) then