[chainik]

Уважаемые посетители форума
--------------------------------------
Я несколько раз натыкался на форуме на запросы как перевести число в словесное выражение
И это сподвигло меня на написание такой функции
Проверял, багов вроде нет...
Понимает числа до 999 миллионов
Если надо больше- пусть Кудрин дает заказ- сделаю миллиарды.
Может кому- то пригодится....

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68

{-------------------------------------------------------------------------------     возвращает  числительное прописью --------------------------------------------------------------------------------} function GetNumeralStr(Num:dword):string; const ss0:array[0..19] of string[50]=('','один','два','три','четыре','пять','шесть','семь',                             'восемь','девять','десять','одиннадцать','двенадцать','тринадцать',                             'четырнадцать','пятнадцать','шестнадцать','семнадцать',                             'восемнадцать','девятнадцать');   ss10:array[0..9] of string[50]=('','','двадцать','тридцать','сорок','пятьдесят','шестьдесят',                             'семьдесят','восемьдесят','девяносто');   ss100:array[0..9] of string[50]=('','сто','двести','триста','четыреста',                             'пятьсот','щестьсот','семьсот','восемьсот','девятьсот');   ss1000:array[0..19] of string[50]=('тысяч','одна тысяча','две тысячи','три тысячи',                             'четыре тысячи','пять тысяч','шесть тысяч','семь тысяч',                             'восемь тысяч','девять тысяч','десять тысяч',                             'одиннадцать тысяч','двенадцать тысяч','тринадцать тысяч',                             'четырнадцать тысяч','пятнадцать тысяч',                             'шестнадцать тысяч','семнадцать тысяч',                             'восемнадцать тысяч','девятнадцать тысяч');   ssM:array[0..19] of string[50]=('миллионов','один миллион','два миллиона','три миллиона',                             'четыре миллиона','пять миллионов','шесть миллионов','семь миллионов',                             'восемь миллионов','девять миллионов','десять миллионов',                             'одиннадцать миллионов','двенадцать миллионов','тринадцать миллионов',                             'четырнадцать миллионов','пятнадцать миллионов',                             'шестнадцать миллионов','семнадцать миллионов',                             'восемнадцать миллионов','девятнадцать миллионов');   var Remaind:dword; begin Result:='';   //единицы Remaind:=Num mod 100; if Remaind <=19 then     Result:=ss0[Remaind] else     Result:=ss10[Remaind div 10]+' '+ss0[Remaind mod 10]; Num:=Num div 100; Result:=ss100[Num mod 10]+' '+Result; Num:=Num div 10;   //тысячи Remaind:=Num mod 100; if Num mod 1000 > 0 then     if Remaind <= 19 then         Result:=ss1000[Remaind]+' '+Result     else         Result:=ss10[Remaind div 10]+' '+ss1000[Remaind mod 10]+' '+Result; Num:=Num div 100; Result:=ss100[Num mod 10]+' '+Result; Num:=Num div 10;   //миллионы Remaind:=Num mod 100; if Num mod 1000 > 0 then     if Remaind <= 19 then         Result:=ssM[Remaind]+' '+Result     else         Result:=ss10[Remaind div 10]+' '+ssM[Remaind mod 10]+' '+Result; Num:=Num div 100; Result:=ss100[Num mod 10]+' '+Result; end;

[angvelem]

Желание показать свои возможности можно только приветствовать, но результат написания данной функции, мягко говоря, неутешителен. Слегка напоминает фразу первоклассника: "Мама мыла раму", также приелась и также бесполезна.

[Pilot_Red]

Сообщение от angvelem

но результат написания данной функции, мягко говоря, неутешителен

Ну и чем же он неутешителен??

[angvelem]

Дублирование слов в стрингах, как вариант пойдёт.

[M.A.D.M.A.N.]

Отформатируй в удобочитаемый код.