Ошибка "Number is out of range" в Delphi XE при работе с полями BCD в базе данных Paradox

Delphi , Базы данных , ADO

При работе с базами данных Paradox в среде разработки Delphi XE может возникнуть ошибка "Number is out of range", особенно при использовании полей BCD (бинарное кодированное десятичное). Эта проблема может быть вызвана несоответствием типов данных или ограничениями, установленными в базе данных.

Пример кода, вызывающего ошибку:

POE_Data.OrdersTaxRate.AsFloat:= StrToFloat(Copy(TaxRateLabel.Caption, 1,1));

Здесь TaxRateLabel.Caption содержит значение "7%", и функция StrToFloat пытается преобразовать только символ "7". В базе данных поле TaxRate определено как BCD поле с двумя десятичными знаками.

Возможные причины ошибки:

1. Ограничения поля: Поле в базе данных может иметь установленные минимальные или максимальные значения, даже если они не видны напрямую.
2. Тип поля: В некоторых СУБД, например, в PostgreSQL, нельзя присвоить значение больше 0.99 полю типа numeric(2,2), так как общая длина числа, включая десятичные знаки, не может превышать указанное значение.

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

Используйте свойство AsBcd вместе с функцией StrToBcd для корректного преобразования строки в TBcd:

POE_Data.OrdersTaxRate.AsBcd:= StrToBcd(Copy(TaxRateLabel.Caption, 3)); // начинаем копирование с символа, предшествующего десятичному разделителю

Обратите внимание, что в некоторых случаях может потребоваться включение соответствующего модуля в раздел Uses вашего проекта, или использование функции FMTBcd вместо StrToBcd.

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

Если предыдущий способ не работает, попробуйте скопировать файл Source\data\Data.DB.pas в папку с исходным кодом вашего проекта и внести следующие изменения в код:

procedure TBCDField.SetAsCurrency(Value: Currency);
begin
  if FCheckRange and ((Value < FMinValue) or (Value > FMaxValue)) then
    RangeError(Value, FMinValue, FMaxValue);
  // ... другие изменения ...
  SetData(@Value, False);    // замена строк, чтобы можно было использовать TField.AsBCD
end;

Затем добавьте изменённый файл Data.DB.pas в ваш проект и пересоберите проект.

Важные замечания:

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

Следуя этим рекомендациям, вы сможете устранить ошибку "Number is out of range" в Delphi XE при работе с полями BCD в базе данных Paradox.

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

В среде разработки Delphi XE при работе с полями BCD в базе данных Paradox возникает ошибка 'Number is out of range', что связано с некорректным преобразованием данных и ограничениями типов полей.

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

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

:: Главная :: ADO ::