Delphi+IB

@Ms.Asami · Регистрация: 30.04.2010

Студворк — интернет-сервис помощи студентам

Подскажите, пожалуйста, как прописать условие формата.
У меня автоматически считает сумму в edit в таком виде "123,890", проблема в том что мне нужно, чтоб было в формате "123.890", иначе оно не замечает запятую.

arni · 07.05.2010, 21:18

Сообщение от Ms.Asami

Подскажите, пожалуйста, как прописать условие формата.
У меня автоматически считает сумму в edit в таком виде "123,890", проблема в том что мне нужно, чтоб было в формате "123.890", иначе оно не замечает запятую.

Знак-разделитель обычно не регулируется на уровне программы, а задается в "панель управления" -> "Язык и региональные стандарты".

Может подробнее объясните, где у вас проблема вылазит? в какой момент?

@kukuruku310 · 07.05.2010, 21:24

Меняйте запятую на точку (и коньки на санки), когда посылаете данные в базу

arni · 07.05.2010, 21:29

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

Меняйте запятую на точку (и коньки на санки), когда посылаете данные в базу

Вот только не надо такого советовать - подставлять костыли туда, где и без них все работать должно.
Не должно при нормальном обращении с DBAware-компонентами возникать такой ситуации. Библиотека доступа (если вобще не TDataSet-класс) должна сама хавать числа с плавающей точкой в любом национальном формате и отдавать базе в должном формате.

Поэтому и спрашиваю: где, как и при каких условиях возникает проблема?

@kukuruku310 · 07.05.2010, 21:35

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

подставлять костыли туда, где и без них все работать должно

ага
insert into Table(ID, d_value) values (123, 123,34) - я бы поглядел что вам писюк на ето скажет

Добавлено через 1 минуту

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

Библиотека доступа должна сама хавать

должна-то она должна, да не обязана

@harmless · 07.05.2010, 21:38

Но все же если требуется сменить разделитель программно, то можно DecimalSeparator : char использовать.

arni · 07.05.2010, 21:43

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

ага
insert into Table(ID, d_value) values (123, 123,34) - я бы поглядел что вам писюк на ето скажет

Добавлено через 1 минуту

должна-то она должна, да не обязана

Что ж, великолепный пример. Нормальный программер напишет:

Code
1
2
3
4
Query.SQL.Text:='insert into Table(ID, d_value) values (:V1, :V2)';
Query.ParamByName('V1').AsCurrency:=123; 
Query.ParamByName('V2').AsCurrency:=123.34;
Query.ExecQuery;

Использование параметров решит все проблемы уже на этапе компиляции этого кода.

Более того, можно не писать и этого. Топикстартер упоминал, что данные получает через Edit. Использование TDBEdit с привязкой к источнику данных и полю само положит данные так, как надо, и без написание кода.

@kukuruku310 · 07.05.2010, 21:51

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

Нормальный программер напишет

Не всегда...

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

Использование TDBEdit с привязкой к источнику данных и полю само положит данные так, как надо, и без написание кода

А если не хоцца использовать TDBEdit? А если не хоцца пользовать параметры? А если хоцца, чтобы работало цуть-цуть побыстрее? И не весило кучу-кучу метров?

@harmless · 07.05.2010, 21:54

Какой спор из-за точки/запятой (нужное подчеркнуть)

arni · 07.05.2010, 21:58

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

А если не хоцца использовать TDBEdit? А если не хоцца пользовать параметры? А если хоцца, чтобы работало цуть-цуть побыстрее? И не весило кучу-кучу метров?

Надежность и гибкость кода для себя ставлю превыше скоростных качеств. С трудом представляю, как параметры могут сколько-нибудь замедлить исполнение.
Впрочем, приоритеты другим не навязываю.

@kukuruku310 · 07.05.2010, 22:08

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

@harmless · 07.05.2010, 22:17

Встречаются еще траблы с "." и "/" в полях типа дата. У новичков постоянные проблемы, тем более, что штатных DBAware-компонентов нету (а может я нуб?)...

@Ms.Asami · 07.05.2010, 22:34 **[ТС]**

ой, какой спор начался. а ошибка вылетает при добавлении в БД данных и вылетает ошибка типа:

Project1.exe raised exception class EConvertError with message ''' is not a valid floating point value'. Process stopped.

Delphi
1
2
3
4
5
6
7
var
  n,m:double;
begin
Edit3.Clear;
n:= strtofloat(Edit1.Text);
m:=strtofloat(Edit2.Text);
Edit3.Text := FloatToStr(n*m);

вот такое у меня в поле сумма и при передаче в БД, неучитывает запятую, потом через время или сразу вылетает такая ошибка

arni · 07.05.2010, 22:41

Сообщение от Ms.Asami

Delphi
1
2
3
4
5
6
7
var
  n,m:double;
begin
Edit3.Clear;
n:= strtofloat(Edit1.Text);
m:=strtofloat(Edit2.Text);
Edit3.Text := FloatToStr(n*m);

Остаюсь при своем мнении: необходимо использовать специализированные компоненты для редактированию чисел с плавающей точкой. Например, TRxCalcEdit/TRxCurrencyEdit из библиотеки RxLib. Они защитят от применения "не того" знака-разделителя, а когда дело дойдет до присваивания не потребуются никакие StrToFloat - есть прямое свойство Value. За счет незначительно распухания EXEшника на выходе получаем абсолютно безопасное и предсказуемое приложение.

@Ms.Asami · 07.05.2010, 22:51 **[ТС]**

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

Остаюсь при своем мнении: необходимо использовать специализированные компоненты для редактированию чисел с плавающей точкой. Например, TRxCalcEdit/TRxCurrencyEdit из библиотеки RxLib. Они защитят от применения "не того" знака-разделителя, а когда дело дойдет до присваивания не потребуются никакие StrToFloat - есть прямое свойство Value. За счет незначительно распухания EXEшника на выходе получаем абсолютно безопасное и предсказуемое приложение.

извиняюсь, за совсем глупый вопрос, а где найти эти компоненты?

arni · 07.05.2010, 22:54

http://rx.delphiplus.org/

@Ms.Asami · 07.05.2010, 23:08 **[ТС]**

спасибо, за помощь, попробую через эти компоненты, надеюсь заработает. а то оно то работает, то не хочет

@harmless · 08.05.2010, 09:18

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

Остаюсь при своем мнении: необходимо использовать специализированные компоненты для редактированию чисел с плавающей точкой. Например, TRxCalcEdit/TRxCurrencyEdit из библиотеки RxLib. Они защитят от применения "не того" знака-разделителя, а когда дело дойдет до присваивания не потребуются никакие StrToFloat - есть прямое свойство Value.

Это, конечно, всё хорошо. Только вот, например, что делать студенту, который пишет лабу дома с использованием сторонних компонентов, при защите этой самой лабы в учебном заведении? Существует достаточно высокая вероятность, что никто ему не позволит ставить сторонние библиотеки...

arni · 08.05.2010, 10:10

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

Это, конечно, всё хорошо. Только вот, например, что делать студенту, который пишет лабу дома с использованием сторонних компонентов, при защите этой самой лабы в учебном заведении? Существует достаточно высокая вероятность, что никто ему не позволит ставить сторонние библиотеки...

Есть такая лажа, не спорю, но я ж про практику программированию вообще говорю, а не о частном случае защиты в ВУЗе. По последнему вопросу: использовать SysUtils.TryStrToFloat - позволит безопастно проверить, а в нужном ли формате в TEdit введено значение, чтобы его можно считать текстовым представлением числа с плавающей точкой.

Новые блоги и статьи Все статьи Все блоги /
Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это дополнительная запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .

@Ms.Asami 0 / 0 / 0 Регистрация: 30.04.2010 Сообщений: 20

	Delphi+IB 07.05.2010, 20:17. Показов 1637. Ответов 18 Метки нет (Все метки) Подскажите, пожалуйста, как прописать условие формата. У меня автоматически считает сумму в edit в таком виде "123,890", проблема в том что мне нужно, чтоб было в формате "123.890", иначе оно не замечает запятую. 0

@kukuruku310 306 / 187 / 26 Регистрация: 14.02.2010 Сообщений: 547
	07.05.2010, 21:24
	Меняйте запятую на точку (и коньки на санки), когда посылаете данные в базу 0

@harmless 151 / 151 / 3 Регистрация: 05.05.2010 Сообщений: 570
	07.05.2010, 21:38
	Но все же если требуется сменить разделитель программно, то можно DecimalSeparator : char использовать. 0

@harmless 151 / 151 / 3 Регистрация: 05.05.2010 Сообщений: 570
	07.05.2010, 21:54
	Какой спор из-за точки/запятой (нужное подчеркнуть) 0

@kukuruku310 306 / 187 / 26 Регистрация: 14.02.2010 Сообщений: 547
	07.05.2010, 22:08
	Прошу пардону, если что сказал не так. Просто проблема с точкой/запятой в базах данных весьма распространена, особенно если не юзать каких-то полностью готовых компонент, которые достаточно бросит на форму. Но вот в отношении гибкости и всего остального это, к сожалению, не способствует. И еще раз пардон. 0

@harmless 151 / 151 / 3 Регистрация: 05.05.2010 Сообщений: 570
	07.05.2010, 22:17
	Встречаются еще траблы с "." и "/" в полях типа дата. У новичков постоянные проблемы, тем более, что штатных DBAware-компонентов нету (а может я нуб?)... 0

arni 914 / 879 / 62 Регистрация: 06.01.2010 Сообщений: 2,367 Записей в блоге: 6
	07.05.2010, 22:54
	http://rx.delphiplus.org/ 1

@Ms.Asami 0 / 0 / 0 Регистрация: 30.04.2010 Сообщений: 20
	07.05.2010, 23:08 [ТС]
	спасибо, за помощь, попробую через эти компоненты, надеюсь заработает. а то оно то работает, то не хочет 0