VPF::1123123123 -> 1,123,123,123 - Форум программистов

Ch0bits

Дата 21.10.2007, 17:23 (ссылка)

(нет голосов)

Загрузка ...

Python Dev.

Профиль
Группа: Завсегдатай
Сообщений: 2124
Регистрация: 21.2.2005
Где: Казань

Репутация: нет
Всего: 62

Как с помощью format отформатировать число 1123123123 -> 1,123,123,123
(где вместо запятой может быть любой символ)

--------------------

Quizful - новый портал с классными IT тестами!

Ch0bits

Дата 21.10.2007, 18:20 (ссылка)

(нет голосов)

Загрузка ...

Python Dev.

Профиль
Группа: Завсегдатай
Сообщений: 2124
Регистрация: 21.2.2005
Где: Казань

Репутация: нет
Всего: 62

Короче нужен штатный аналог этой процедуры.

Код


function TTxtReportWriter.FormatNumber(num: int64; sep: char): string;
var
  s: string;
  i, j, l: integer;
begin
  s := IntToStr(num);
  Result := '';
  l := Length(s);
  for i:= l downto 1 do begin
     Result := s[i] + Result;
     if ((l-i+1) mod 3 = 0) and (i<>1) then Result := sep + Result;
  end;
end;

--------------------

Quizful - новый портал с классными IT тестами!

volvo877

Дата 21.10.2007, 19:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 9
Всего: 116

Format с использованием ThousandSeparator:

Код

  num := 1123123123;
  ThousandSeparator := ',';
  ShowMessage(Format('%0.0n', [num * 1.0]));

Ch0bits

Дата 21.10.2007, 19:36 (ссылка)

(нет голосов)

Загрузка ...

Python Dev.

Профиль
Группа: Завсегдатай
Сообщений: 2124
Регистрация: 21.2.2005
Где: Казань

Репутация: нет
Всего: 62

--------------------

Quizful - новый портал с классными IT тестами!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »