Форум: "Начинающим";
Текущий архив: 2011.12.11;
Скачать: [xml.tar.bz2];
Вниз
форматирование 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2011.12.11;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c
