Скачать: CL | DM;

форматирование 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);
огромное спасибо!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.006 c