Ошибки ввода времени в TDBGrid: защита от неправильных временных меток в Delphi 7

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

При работе с компонентом TDBGrid в среде разработки Borland Delphi 7 часто возникает необходимость в валидации данных, вводимых пользователем. Одной из распространенных задач является защита от ввода некорректных временных меток. В данной статье мы рассмотрим, как можно предотвратить выход пользователя из ячейки DBGrid, если введенное значение времени не соответствует заданным критериям.

Проблема

Пользователь должен иметь возможность редактировать данные в TClientDataSet, к которому подключен TDBGrid через TDataSource. Необходимо ограничить пользователя, не позволяя ему покидать ячейку, если введенное время не соответствует формату 00:00 - 23:59 и не содержит пустых символов. Для удобства ввода используется свойство EditMask полей TClientDataSet.

Решение

Для решения этой задачи можно использовать событие OnValidate поля TField. Это событие вызывается после проверки EditMask, но до записи данных в буфер записи. В этом событии можно выполнить дополнительные проверки и, в случае необходимости, поднять исключение, если значение не соответствует заданным требованиям.

procedure TForm1.FieldValidate(Sender: TField);
begin
  if not (TRegEx.IsMatch(Sender.AsString, '\A([0-1][0-9]|[2][0-3]):[0-5][0-9]\z')) then
    raise Exception.Create('Введенное время некорректно');
end;

В данном примере кода используется регулярное выражение для проверки корректности временного интервала. Однако, стоит отметить, что в Delphi 7 нет встроенной поддержки регулярных выражений, поэтому для использования регулярных выражений необходимо подключить внешнюю библиотеку, такую как TPerlRegEx.

var
  Regex: TPerlRegEx;
  FoundMatch: Boolean;
  TimeStr: string;
begin
  TimeStr := Sender.AsString;
  Regex := TPerlRegEx.Create;
  try
    Regex.RegEx := '\A([0-1][0-9]|[2][0-3]):[0-5][0-9]\z';
    Regex.State := [preNotEmpty];
    Regex.Subject := TimeStr;
    FoundMatch := Regex.Match;
    if not FoundMatch then
      raise Exception.Create('Введенное время некорректно');
  finally
    Regex.Free;
  end;
end;

Поднятие исключения в обработчике события OnValidate предотвратит запись некорректных данных и позволит пользователю остаться в ячейке до тех пор, пока не будет введено корректное значение.

Альтернативный ответ

В качестве альтернативы можно использовать событие OnColExit компонента TDBGrid, которое срабатывает при выходе из столбца. Однако, предпочтительнее связывать код валидации с данными базы, а не с пользовательским интерфейсом, чтобы валидация была актуальна независимо от способа ввода данных.

Заключение

В данной статье мы рассмотрели, как использовать обработчик события OnValidate поля TField для валидации временных меток в TDBGrid в среде Borland Delphi 7. Это позволяет защитить данные от некорректного ввода и обеспечить соответствие вводимых значений заданным требованиям.

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

В статье рассматривается проблема валидации временных меток в компоненте TDBGrid в Delphi 7 для предотвращения записи некорректных данных.

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

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

:: Главная :: TDBGrid ::