Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.04.2022, 23:29   #1
Kronos913
Форумчанин
 
Регистрация: 10.02.2021
Сообщений: 627
По умолчанию Переделать FloatToStr

Есть ли в открытом доступе код функции FloatToStr?
Или как его изменить

Собственно в чем вопрос
Есть FloatToStr, который в нормальном виде подает число, но он вместо точки использует запятую
Если процедура str, но есть не знаешь, сколько будет знаков после запятой, она пишет кучу лишних нулей

Что в одном, что в другом случае надо городить целый огород: что для замены точки на запятую, что для обрезки лишних нулей

А можно ли как-то изменить код FloatToStr, чтобы он писал точку вместо запятой?
Kronos913 вне форума Ответить с цитированием
Старый 21.04.2022, 23:59   #2
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,291
По умолчанию

Просто напишите в коде до использования FloatToStr:
Код:
DecimalSeparator := '.';
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Старый 22.04.2022, 00:00   #3
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,550
По умолчанию

Ничего переделывать не надо, всё уже украдено сделано до нас.
http://www.delphibasics.ru/DecimalSeparator.php
Забыть FloatToStr как кошмарный сон и пользоваться функцией Format.
digitalis вне форума Ответить с цитированием
Старый 22.04.2022, 01:54   #4
northener
ПШП
Участник клуба
 
Регистрация: 15.07.2013
Сообщений: 1,872
По умолчанию

Предложу ещё один вариант именно для Kronos913.
Измените свои региональные настройки. Поставьте в них разделителем целой и дробной частей точку, вместо принятой в русской традиции запятой. И все ваши программы на вашем компьютере выдавать таких ошибок не будут.
northener вне форума Ответить с цитированием
Старый 22.04.2022, 17:03   #5
Kronos913
Форумчанин
 
Регистрация: 10.02.2021
Сообщений: 627
По умолчанию

BDA, спасибо, сработало
northener, Я стараюсь приспособить программу и под работу на других ПК, помимо моего
Kronos913 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Переделать код Olaa Помощь студентам 0 08.06.2017 22:46
[Delphi] Зачем в данной программе нужна функция StrToFloat и FloatToStr? Alsazius Помощь студентам 5 11.12.2012 17:54
Проблема с FloatToStr KoBRaAndrey Общие вопросы Delphi 3 06.10.2009 16:48
странная реакция FloatToStr CrazyXaoc Общие вопросы C/C++ 6 29.05.2009 17:35
StrToFloat и FloatToStr bles Помощь студентам 5 30.01.2008 22:27