Преобразовать строку с числом в денежный формат

@Rusline18 · Регистрация: 24.01.2016

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

Как сделать так, чтобы при вводе цифр в Edit, после каждой третий цифрой разделяла. Как обычно воспринимает денежный формат. Допустим 1 000,00; 10 000,00; 100 000,00; 1 000 000,00.
Пробовал в TMaskEdit, но там получается формат для той суммы, который ты указал. Объясняю если я вводил формат для миллиона, то для в этот формат ввести тысячи или даже 10 000 проблематично, потому что надо полностью заполнить все строки маски. Кто может подсказать?

@Почтальон · 01.02.2016, 11:52

Это смотря как вы хотите сделать. Если хотите сделать "на лету", то это одно событие, если по окончании ввода - уже другое.

@Rusline18 · 02.02.2016, 23:04 **[ТС]**

По окончание ввода

@Samrisbe · 03.02.2016, 04:35

Поиск по форуму

Здесь то что тебе нужно.

@D1973 · 03.02.2016, 18:27

Rusline18, версия билдера какая?

@D1973 · 03.02.2016, 18:59

Вот примерчик для преобразования строки цифр в "денежный" формат и из "денежного" формата обратно в число

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//---------------------------------------------------------------------------
//Функция преобразования "денежного" формата в число
int MoneyToInt(String s)
{
  s = StringReplace(s, " ", "", TReplaceFlags() << rfReplaceAll);
  return StrToInt(s);
}
//---------------------------------------------------------------------------
//Функция преобразования строки цифр в "денежный" формат
String StrToMoney(String s)
{
  ThousandSeparator = ' ';
  return String().Format("%.0n", ARRAYOFCONST((s.ToDouble())));
}
//---------------------------------------------------------------------------

Пример использования: по окончании ввода в Едит1 строки цифр и при потере Едитом фокуса происходит преобразование строки цифр в "денежный" формат
При нажатии кнопки происходит обратное преобразование и к полученному числу прибавляется 11. Результат выводится в сообщении

C++
1
2
3
4
5
6
7
8
9
void __fastcall TForm1::Edit1Exit(TObject *Sender)
{
  Edit1->Text = StrToMoney(Edit1->Text);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  ShowMessage(IntToStr(MoneyToInt(Edit1->Text) + 11));
}

Спрашиваю про версию почему... Потому, что в 6-м билдере это все прекрасно отработает, а в RAD надо немного переделать...

@SatanaXIII · 04.02.2016, 09:53

D1973, меня что-то смущает, что на картинке числа разнятся - в поле Edit 1234567, а в ShowMessage 1234578.
Наверное в функции нажатии кнопки цифра одиннадцать лишняя:

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

C++
8
ShowMessage(IntToStr(MoneyToInt(Edit1->Text) + 11));

@D1973 · 04.02.2016, 14:53

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

Наверное в функции нажатии кнопки цифра одиннадцать лишняя:

Не, не лишняя. Я специально сделал прибавление числа 11 к результату, который возвращает функция MoneyToInt(), просто чтобы продемонстрировать, что результат этой функции - действительно число и с ним можно производить какие-то операции. Я даже написал об этом...

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

При нажатии кнопки происходит обратное преобразование и к полученному числу прибавляется 11. Результат выводится в сообщении

@Rusline18 · 06.02.2016, 19:49 **[ТС]**

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

Потому, что в 6-м билдере это все прекрасно отработает

у меня xe7 билдер

Добавлено через 11 минут
Нет так не получается почему-то

@D1973 · 06.02.2016, 20:26

Сейчас попробовал на ХЕ3 (в ХЕ7 должно быть то же самое). Все, что нужно сделать - поменять строчку

C++
1
ThousandSeparator = ' ';

на

C++
1
FormatSettings.ThousandSeparator = ' ';

@Rusline18 · 07.02.2016, 10:48 **[ТС]**

А что означает знак "<<"?

Добавлено через 12 минут
И еще дна проблема, походу эту ячейку нельзя оставлять пустой, а можно как-то сделать, так чтобы возможно оставлять ячейку пустой. Допустим если не чайно нажал на эту ячейку?

@D1973 · 07.02.2016, 14:13

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

А что означает знак "<<"

Ко множеству значений TReplaceFlags() ты добавляешь значение rfReplaceAll

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

эту ячейку нельзя оставлять пустой

Какую ячейку??? Речь, вообще-то, шла о полях ввода Edit! Но вопрос понятен... До билдера доберусь - примерчик брошу

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

Преобразовать строку с числом в денежный формат

Решение

Решение

@Rusline18 0 / 0 / 5 Регистрация: 24.01.2016 Сообщений: 227

	Преобразовать строку с числом в денежный формат 30.01.2016, 22:21. Показов 3277. Ответов 11 Метки нет (Все метки) Как сделать так, чтобы при вводе цифр в Edit, после каждой третий цифрой разделяла. Как обычно воспринимает денежный формат. Допустим 1 000,00; 10 000,00; 100 000,00; 1 000 000,00. Пробовал в TMaskEdit, но там получается формат для той суммы, который ты указал. Объясняю если я вводил формат для миллиона, то для в этот формат ввести тысячи или даже 10 000 проблематично, потому что надо полностью заполнить все строки маски. Кто может подсказать? 0

@Почтальон управление сложностью 1693 / 1306 / 259 Регистрация: 22.03.2015 Сообщений: 7,545 Записей в блоге: 5
	01.02.2016, 11:52
	Это смотря как вы хотите сделать. Если хотите сделать "на лету", то это одно событие, если по окончании ввода - уже другое. 0

@Rusline18 0 / 0 / 5 Регистрация: 24.01.2016 Сообщений: 227
	02.02.2016, 23:04 [ТС]
	По окончание ввода 0

@Samrisbe 1365 / 732 / 67 Регистрация: 28.01.2011 Сообщений: 2,069
	03.02.2016, 04:35
	Поиск по форуму Здесь то что тебе нужно. 0

@D1973 Модератор 9917 / 6454 / 2455 Регистрация: 21.01.2014 Сообщений: 27,389 Записей в блоге: 3
	03.02.2016, 18:27
	Rusline18, версия билдера какая? 0

@Rusline18 0 / 0 / 5 Регистрация: 24.01.2016 Сообщений: 227
	07.02.2016, 10:48 [ТС]
	А что означает знак "<<"? Добавлено через 12 минут И еще дна проблема, походу эту ячейку нельзя оставлять пустой, а можно как-то сделать, так чтобы возможно оставлять ячейку пустой. Допустим если не чайно нажал на эту ячейку? 0