Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

форматирование integer с разделением по 1000 пробелом [D6, XP]

brother_home © (2011-08-25 19:22:00)
Приветствую! Написал функцию форматирование integer с разделением по 1000 пробелом:
function IntToStrByThousands(i: integer): string;
begin
ThousandSeparator:= ' ';
result:= FloatToStrF(i, ffCurrency, 10, 0);
Delete(result, Length(result) - 1, 2);
end;
понимаю, что привязяан к локали... можно как-то иначе?

brother_home (2011-08-25 19:53:00) [1]
а понял!
result:= FormatFloat(',0', i);
огромное спасибо!

brother_home (2011-08-25 19:52:00) [2]
Анатолий, я Вас не понял...

brother_home (2011-08-25 19:46:00) [3]
Спасибо, буду смотреть эти функции.

> Только надо ли? Юзер ведь привык к СВОИМ настройкам и вряд
> ли ему понравится, что программа навязывает ему другие.

Надо, тк пишется экономическая игра, а там как раз локаль не нужна...

Anatoly Podgoretsky (2011-08-25 19:46:00) [4]
> brother_home (25.08.2011 19:22:00) [0]

FormatFloat ,0

Юрий Зотов (2011-08-25 19:43:00) [5]
См. FloatToTextFmt и тип TFormatSettings.

Создаете запись, заполняете ее поля как Вам надо и передаете в функцию. Будете форматировать что угодно независимо от локали.

Только надо ли? Юзер ведь привык к СВОИМ настройкам и вряд ли ему понравится, что программа навязывает ему другие.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »