Обработка ошибок при выполнении расчётов с плавающей точкой и типом Currency в Delphi

Delphi , Синтаксис , Типы и Переменные

Вопрос обработки ошибок при выполнении математических операций с плавающей точкой и типом Currency является актуальным для разработчиков, работающих с финансовыми приложениями в среде Delphi. В данной статье мы рассмотрим, как правильно обрабатывать такие ошибки, используя примеры кода на Object Pascal.

Контекст задачи

Пользователь 1HuntnMan столкнулся с проблемой обработки ошибок при выполнении операций сложения и вычитания значений с плавающей точкой, определенных как Currency. В коде, который он предоставил, отсутствует обработка исключений, что может привести к возникновению ошибок, например, при работе с нулевыми значениями.

Решение проблемы

Для начала, давайте рассмотрим предложенное решение пользователя paweld, которое включает проверку на IsNull перед выполнением математических операций:

procedure TFrmInvoices.JDBCurrencyAmtDueClick(Sender: TObject);
begin
  if DbfInvces.FieldByName('PAIDAMT').IsNull then
    DbfInvces.FieldByName('AMTDUE').AsFloat:=
     DbfInvces.FieldByName('INVCEAMT').AsFloat-
     DbfInvces.FieldByName('DISCOUNT').AsFloat
  else
    DbfInvces.FieldByName('AMTDUE').AsFloat:=
     DbfInvces.FieldByName('INVCEAMT').AsFloat-
     DbfInvces.FieldByName('DISCOUNT').AsFloat-
     DbfInvces.FieldByName('PAIDAMT').AsFloat;
end;

Это хороший пример предварительной проверки на NULL, однако, стоит также использовать блок try...except для обработки возможных исключений во время выполнения расчётов:

procedure TFrmInvoices.JDBCurrencyAmtDueClick(Sender: TObject);
begin
  try
    if DbfInvces.FieldByName('PAIDAMT').IsNull then
      DbfInvces.FieldByName('AMTDUE').AsFloat :=
        DbfInvces.FieldByName('INVCEAMT').AsFloat -
        DbfInvces.FieldByName('DISCOUNT').AsFloat
    else
      DbfInvces.FieldByName('AMTDUE').AsFloat :=
        DbfInvces.FieldByName('INVCEAMT').AsFloat -
        DbfInvces.FieldByName('DISCOUNT').AsFloat -
        DbfInvces.FieldByName('PAIDAMT').AsFloat;
  except
    on E: Exception do
      // Обработка исключения
      MessageDlg('Ошибка при выполнении расчёта: ' + E.Message, mtError, [mbOK], 0);
  end;
end;

Также стоит учитывать замечание Thaddy о том, что тип Currency не является плавающей точкой, а представляет собой фиксированную точку с максимальной погрешностью 0.00005. Поэтому при выполнении математических операций с типами Currency следует избегать смешивания с плавающей точкой, чтобы не вводить дополнительные ошибки округления.

Альтернативное решение

Пользователь 1HuntnMan также рассматривал возможность использования события OnExit для проверки значений перед переходом к следующему полю. Однако, как заметил wp, это может привести к нежелательным ситуациям, например, при отказе от ввода данных. В качестве альтернативы, можно использовать событие OnChange для проверки значений полей, но более предпочтительным вариантом будет проверка перед сохранением данных, например, в событии OnBeforePost данных TDataSet:

procedure TFrmPhotogrphyMgt.DbfPhotosBeforePost(DataSet: TDataSet);
begin
  if DbfPhotos.FieldByName('PRICE').IsNull then
    if MessageDlg('Цена не может быть пустой, продолжить?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
      JDBCurrencyPrice.SetFocus;
    else
      // Отмена операции ввода
      DataSet.Cancel;
end;

Заключение

При работе с типами Currency и плавающей точкой в Delphi важно обращать внимание на возможные ошибки, связанные с нулевыми значениями и смешиванием типов данных. Использование блоков try...except и проверка значений полей перед выполнением критичных операций позволит избежать многих проблем, связанных с обработкой ошибок в финансовых приложениях.

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

Описание контекста: Вопрос касается корректной обработки ошибок при выполнении математических операций с типом Currency и плавающей точкой в среде разработки Delphi, с акцентом на финансовые приложения.

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

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

:: Главная :: Типы и Переменные ::