Буквенные сокращения больших чисел.

[mrtoxas]

Приветствую! Подскажите, можно ли сделать малой кровью преобразования больших чисел, например:
21045000 = 21m45k?

[Stilet]

Что такое "m" и "k"?

[f.hump]

а зачем, если не секрет?

спрашиваю потому что

1234567890 = 1г234м567к890

[mrtoxas]

Stilet, k - тысячи, m - миллионы.

f.hump, озадачился, скорее для собственного развития. А так, то есть счетчик на форме, который шурует очень быстро и очень долго. И чтобы каждую миллисекунду не перерисовывать label, подумал, что лучше сократить числа на американский манер + восприятие числа будет легче, чем знаки считать.

[Serge_Bliznykov]

mrtoxas, ну так очевидно же, через mod получайте остатки от деления на нужное число и его выводит с буквенным обозначением.
и выводите их.
если по-индусски, "в лоб" , то можно так:

var s : string;
begin
....

   // пусть число в переменной N
   s := '';
   if (N mod 1000000000)>0 then s := IntToStr(N mod 1000000000)+'b';
   s := s + IntToStr(N mod 1000000)+'m'+IntToStr(N mod 1000)+'k';
 
   Label1.Caption := s

[f.hump]

лучше пробелов поставь

1234567890 = 1 234 567 890

[Stilet]

Ах вон че...

function Foo(i:integer): Variant; var k:integer;
begin
 Result:='';
 k:=i div 1000000;if k<>0 then Result:=IntToStr(k)+'m '; i:=i mod 1000000;
 k:=i div 100000;if k<>0 then Result:=Result+IntToStr(k)+'k '; i:=i mod 100000;
 Result:=Result+IntToStr(i);

end;

Достаточно малой кровью. Можно и через цикл и красивее.

[Utkin]

21m45k

Это в каком формате так нада? Пробелы ставят обычно. Для денег еще пишут, чтобы от нулей не рябило.

[mrtoxas]

Serge_Bliznykov, Stilet, Спасибо! Пошел курить mod.

[Stilet]

Безымянный.jpg

..........