форматирование integer с разделением по 1000 пробелом

← →
brother_home (2011-08-25 19:22) [0]

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

← →
Юрий Зотов © (2011-08-25 19:43) [1]

См. FloatToTextFmt и тип TFormatSettings.

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

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

← →
brother_home (2011-08-25 19:46) [2]

Спасибо, буду смотреть эти функции.

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

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

← →
Anatoly Podgoretsky © (2011-08-25 19:46) [3]

> brother_home (25.08.2011 19:22:00) [0]

FormatFloat ,0

← →
brother_home (2011-08-25 19:52) [4]

Анатолий, я Вас не понял...

← →
brother_home (2011-08-25 19:53) [5]

а понял!
result:= FormatFloat(",0", i);
огромное спасибо!

форматирование integer с разделением по 1000 пробелом Найти похожие ветки