Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Форматирование целого числа / 8 сообщений из 8, страница 1 из 1
28.11.2017, 09:20:51
    #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, 10:03:54
    #39560350
Василий №2
Василий №2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форматирование целого числа
%.0n
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.11.2017, 10:33:29
    #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, 11:04:59
    #39560394
VDSoft
VDSoft
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форматирование целого числа
m52,

FormatFloat(',0', intVal);
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.11.2017, 14:37: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:39:36
    #39560579
Василий №2
Василий №2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форматирование целого числа
Василий №2,

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

да и в однопоточной нужно как минимум оборачивать в блок try .. finally .. end
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.11.2017, 14:54: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
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Форматирование целого числа / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 459ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2041505]:
 0ms
get settings:
 10ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 147ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 57ms
get tp. blocked users:
 2ms
others: 203ms
total:  459ms
x
x
Закрыть


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