Замена "," на "."

[masha_prog]

Доброе утро!
При формировании запроса SQL необходимо данные (вещественного типа) сравнивать с числом (вещественного типа).
в первом запросе вытягиваю число с которым необходимо будет сравнивать.запоминаю его в переменную.
во втором запросе происходит отбор в зависимости от этого числа.

Как сделать так что бы вещественное число запоминалось с "." (для использования в щапросе) а не с ","?

[FaTaL]

Объяви в своей программе, чтобы по умолчанию вещественное число разделялось точкой, вне зависимости от настроек Windows. Где нибудь в OnCreate
DecimalSeparator := '.';
Вот почитай про это http://www.delphibasics.ru/DecimalSeparator.php

[masha_prog]

Спасибо!! Совсем про этот момент забыла!

[IliaIT]

if Pos(',', Str1) > 0 then Str1[Pos(',', Str1)] := '.';

где str1 это число в текстовом формате. (тоесть в строке подразумевается всего 1 ",")

[psycho-coder]

Илья: Есть более гуманные методы
StringReplace(',', '.', Str);
Кажется такой формат, если нет - есть справка.

А вообще верный ответ уже дали

[GunSmoker]

Объяви в своей программе, чтобы по умолчанию вещественное число разделялось точкой, вне зависимости от настроек Windows.

Плохое решение. Пользователь не сможет вводить в программу числа, потому что он (вот наивный-то! ) будет пытаться ввести число через запятую - потому что это его настройки.

Лучшее решение - использовать TFormatSettings с фиксированными настройками и передавать его в функции вроде StrToFloat.

Ещё лучше - вообще не использовать строковое формирование запроса. Это крайне плохая практика. Особенно для текстовых данных. Просто используйте параметризированный запрос - а всё остальное сделает за вас код поддержки.

if Pos(',', Str1) > 0 then Str1[Pos(',', Str1)] := '.';

StringReplace(',', '.', Str);

Тогда уж менять DecimalSeparator на '.' - а то вдруг он не запятая.

[FaTaL]

Сообщение от GunSmoker

Плохое решение. Пользователь не сможет вводить в программу числа, потому что он (вот наивный-то! ) будет пытаться ввести число через запятую - потому что это его настройки.

В вопросе пользователь не вводит число, а оно берётся из БД, да даже если и вводит, то при StrToFloat оно всё равно превратиться в тот формат который указан в DecimalSeparator.

[GunSmoker]

Сообщение от FaTaL

В вопросе пользователь не вводит число, а оно берётся из БД, да даже если и вводит, то при StrToFloat оно всё равно превратиться в тот формат который указан в DecimalSeparator.

А я про что? В том-то и дело, что ты предлагаешь для решения локальной проблемы (интерфейс программа-БД) использовать глобальное решение (смена настроек профиля пользователя в программе).

[FaTaL]

А я про что? В том-то и дело, что ты предлагаешь для решения локальной проблемы (интерфейс программа-БД) использовать глобальное решение (смена настроек профиля пользователя в программе).

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

[GunSmoker]

Ну это же только в этой программе, остальные программы на это никак не отреагируют и будут продолжать использовать виндовые настройки.

Не тормози.

Если ты в своей программе меняешь разделитель "вообще", то это означает, что ты меняешь его не только для работы с БД, а вообще всюду - даже там, где это не требуется.

Например, если в программе ("которая работает с БД") есть поле ввода какого-то числа (а если программа вставляет в БД какие-то числа, то даю 90% на то, что такое поле ввода будет и в интерфейсе программы), то это поле ввода будет использовать подменённый тобой разделитель - вопреки настройкам пользователя. Это - грубый плевок ему в лицо.

Вот почему я указал, что разделитель нужно менять местно - только для необходимых операций: через TFormatSettings.

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

Не стоит упускать возможности предостеречь человека от удара молотком по пальцу.