Аналог функции insert (строки)

Рейтинг: 0Ответов: 1Опубликовано: 03.02.2015

Здравствуйте.

Помнится, в Delphi была функция (типа insert), которая позволяла бы вставлять определенный символ в целую строку через определенное количество символов.

Или я что-то путаю, искал, но не нашел.

Например:

Вставить запятую через каждые 3 символа, в строку 128883684596,
результат : 128,883,684,596

строки функции delphi
Источник: Stack Overflow на русском

Ответы

▲ 1Принят

Insert и есть: help.

Через определенное кол-во не было, но пишется за 5 мин. на основе этой.

Ну или если разрядность более-менее известна, можно сделать так:

S:='128883684596';
ff:=StrToInt64(S);
Result:=FormatFloat('#,###,###.###', ff);

Если вместо запятых будут точки, можно настроить, передав третий параметр TFormatSettings.