ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Форматирование целого числа
8 сообщений из 8, страница 1 из 1
Форматирование целого числа
    #39560322
m52
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
m52
Участник
Здравствуйте,

Хочу получить вывод целого числа с разрядами, например, есть число 10230198323, нужно его вывести в виде "10 230 198 323" согласно языковым настройкам. Для англоязычной винды должно выглядеть "10,230,198,323"

Написал так:
Код: pascal
1.
  st:=Format('%n',[10230198323.00]);


почти работает, но выводит:
"10 230 198 323,00" - для русской винды
"10,230,198,323.00" - для англ. винды

Чтобы убрать ",00" на конце, пробовал так:
Код: pascal
1.
Format('%n',[10230198323]);


но при выполнении выдает ошибку аргументов.

Что посоветуете, как убрать ",00" на конце?
...
Рейтинг: 0 / 0
28.11.2017, 09:20:51
| Ответить | Цитировать | Написать  
Форматирование целого числа
    #39560350
Василий №2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Василий №2
Гость
%.0n
...
Рейтинг: 0 / 0
28.11.2017, 10:03:54
| Ответить | Цитировать | Написать  
Форматирование целого числа
    #39560371
Фотография DarkMaster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMaster
Участник
m52,

Как-то так:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
Function NumberStr(ANumber:extended):string;
var OldDS,OldTS:Char;
begin
 OldDS:=DecimalSeparator;
 OldTS:=ThousandSeparator;
 DecimalSeparator:='.'; ThousandSeparator:=',';
 Result:=Format('%n',[ANumber]);
 DecimalSeparator:=OldDS; ThousandSeparator:=OldTS;
end;



А потом убить дробную часть в строке.
...
Рейтинг: 0 / 0
28.11.2017, 10:33:29
| Ответить | Цитировать | Написать  
Форматирование целого числа
    #39560394
VDSoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VDSoft
Участник
m52,

FormatFloat(',0', intVal);
...
Рейтинг: 0 / 0
28.11.2017, 11:04:59
| Ответить | Цитировать | Написать  
Форматирование целого числа
    #39560576
Василий №2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Василий №2
Гость
DarkMasterm52,

Как-то так:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
Function NumberStr(ANumber:extended):string;
var OldDS,OldTS:Char;
begin
 OldDS:=DecimalSeparator;
 OldTS:=ThousandSeparator;
 DecimalSeparator:='.'; ThousandSeparator:=',';
 Result:=Format('%n',[ANumber]);
 DecimalSeparator:=OldDS; ThousandSeparator:=OldTS;
end;



А потом убить дробную часть в строке.
Просто кошмар... мало того что перректальная тонзиллэктомия, так еще и меняет глобальные переменные, что является источником веселых багов и за что в команде можно огрести обширную ЧМТ.
...
Рейтинг: 0 / 0
28.11.2017, 14:37:59
| Ответить | Цитировать | Написать  
Форматирование целого числа
    #39560579
Василий №2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Василий №2
Гость
Василий №2,

fixed: что является источником веселых багов в многопоточной программе
...
Рейтинг: 0 / 0
28.11.2017, 14:39:36
| Ответить | Цитировать | Написать  
Форматирование целого числа
    #39560592
Фотография arni
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
arni
Участник
Василий №2,

да и в однопоточной нужно как минимум оборачивать в блок try .. finally .. end
...
Рейтинг: 0 / 0
28.11.2017, 14:52:25
| Ответить | Цитировать | Написать  
Форматирование целого числа
    #39560595
Ghost Writer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ghost Writer
Участник
Василий №2,

у функции формат есть потокобезопасный вариант с третьим параметром
Код: pascal
1.
2.
function Format(const Format: string; const Args: array of const;
  const FormatSettings: TFormatSettings): string;
...
Рейтинг: 0 / 0
28.11.2017, 14:54:25
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Форматирование целого числа
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&fpage=124&tid=2041505]:
 0ms
get settings:
 11ms
get forum list:
 19ms
check forum access:
 5ms
check topic access:
 5ms
track hit:
 89ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 54ms
get tp. blocked users:
 2ms
others: 239ms
total:  438ms
созд. / загр.: 438ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]