"Условия активации TButton: выбор двух дат в TDateTimePicker"

Delphi , Компоненты и Классы , TDateTimePicker

Условия активации TButton: выбор двух дат в TDateTimePicker

В данной статье мы рассмотрим, как активировать кнопку TButton при выборе двух дат в компонентах TDateTimePicker. Мы столкнемся с проблемой, при которой кнопка активируется даже если выбрана только одна дата из двух необходимых.

Проблема

У нас есть кнопка TButton, которая изначально неактивна. Мы хотим, чтобы она активировалась только тогда, когда в обоих TDateTimePicker выбираются даты. Однако, при текущей имплементации кода, кнопка активируется даже если выбрана только одна дата из двух.

Вот исходный код процедуры, отвечающей за активацию кнопки:

procedure TfrmPayroll.EnableButton;
begin
  if (dtpFrom.Date = Now()) and
     (dtpTo.Date = Now()) then
  begin
    btnOpen.Enabled := False;
  end
  else
  begin
    btnOpen.Enabled := True;
  end;
end;

Причина проблемы

Проблема заключается в том, что в коде используется оператор "и" (and), который требует, чтобы оба TDateTimePicker были установлены на текущую дату, чтобы кнопка была неактивна. На самом деле, нам нужно, чтобы кнопка была неактивна, если хотя бы один из TDateTimePicker не установлен на текущую дату.

Решение

Чтобы исправить проблему, мы должны изменить оператор "и" (and) на оператор "или" (or):

procedure TfrmPayroll.EnableButton;
begin
  if (dtpFrom.Date = Now()) or
     (dtpTo.Date = Now()) then
  begin
    btnOpen.Enabled := False;
  end
  else
  begin
    btnOpen.Enabled := True;
  end;
end;

Однако, мы можем сделать код более лаконичным, используя оператор "не равно" (<>):

procedure TfrmPayroll.EnableButton;
begin
  btnOpen.Enabled := (dtpFrom.Date <> Now()) and (dtpTo.Date <> Now());
end;

Улучшение кода

Важно помнить, что Now() возвращает не только дату, но и время. Поэтому, мы должны использовать Date() вместо Now(), чтобы избежать включения времени в сравнение:

uses
 ..., DateUtils;

procedure TfrmPayroll.EnableButton;
var
  CurrentDate: TDate;
begin
  CurrentDate := Date();
  btnOpen.Enabled := (DateOf(dtpFrom.Date) <> CurrentDate) and (DateOf(dtpTo.Date) <> CurrentDate);
end;

Также, мы используем локальную переменную CurrentDate, чтобы избежать race condition, если локальное время меняется между двумя вызовами Date().

Вывод

В данной статье мы рассмотрели проблему активации TButton при выборе двух дат в TDateTimePicker и предложили решение, которое исправляет ошибку в исходном коде. Мы также показали, как можно сделать код более лаконичным и безопасным от race condition.

Создано по материалам из источника по ссылке.

В контексте данного текста описано решение проблемы с активацией кнопки TButton при выборе двух дат в компонентах TDateTimePicker, когда кнопка активируется даже если выбрана только одна дата из двух необходимых.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TDateTimePicker ::