Решение проблемы с отображением чисел с плавающей точкой при использовании ODBC драйвера в Delphi

Delphi , Графика и Игры , Canvas

При работе с БД в Delphi sometimes могут возникнуть проблемы с отображением чисел с плавающей точкой, особенно при использовании ODBC драйверов. Одна из таких проблем заключается в том, что поле с плавающей точкой в TQuery может быть некорректно округлено до целого числа при использовании ODBC.

Проблема заключается в том, что при использовании BDE's native Oracle SQL Link driver все работает корректно, и число отображается правильно. Однако, при использовании другого BDE алиаса, который использует ODBC данные источника (последний драйвер от Oracle), отображаемое значение округляется до ближайшего целого числа.

Например, если в БД значение поля равно 48.8, при использовании ODBC драйвера оно отображается как 48.0.

Причиной этой проблемы является то, что поле в БД имеет тип NUMBER(10, 3), а при использовании ODBC драйвера оно интерпретируется как целое число.

Для решения этой проблемы можно использовать workaround, заключающийся в том, чтобы запрашивать поле как строку и конвертировать его обратно и вперед на стороне клиента. Пример кода, который демонстрирует этот подход, приведен ниже:

var
  q: TQuery;
begin
  q := TQuery.Create(SELF);
  try
    q.DatabaseName := 'Realize';
    q.SQL.Text := 'SELECT factW, TO_CHAR(factW) charW'
                 +'FROM bSertific WHERE id_sertific = :id';
    q.ParamByName('id').AsInteger := dm1.Sertif1ID_SERTIFIC.AsInteger;
    q.Open;

    ShowMessage( ' factW = '
                 + q.FieldByName('charW').AsString
                 + ' charW = ' + q.FieldByName('charW').AsString
    );
  finally
    q.Free;
  end;
end;

В этом примере поле factW запрашивается как строка с помощью функции TO_CHAR, а затем отображается как строка с помощью ShowMessage. Таким образом, число с плавающей точкой отображается правильно, даже при использовании ODBC драйвера.

Хотя это решение может показаться не идеальным, оно позволяет избежать проблем с округлением чисел с плавающей точкой при использовании ODBC драйверов в Delphi.

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

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

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

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

:: Главная :: Canvas ::