begin
ShowMessage('Десять рублей')
end;
Требуется преобразовать число в пропись на Delphi.
Вопрос изначально поставлен конечно не очень корректно, но достаточно понятно.
Это сообщение отредактировал mvf23 - 12-08-2006 - 02:30
Поиск в гугле
Вот прямые ссылки на странички с исходниками
http://subscribe.ru/archive/comp.soft.prog...1/04221229.html
http://www.delphikingdom.com/asp/itemq.asp?mode=1&ItemID=431
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=17
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=805
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1105
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1106
А вот обратная задача - из прописи в число несколько сложнее. Особенно с учетом разных падежей. Вот такое в интернете не найдешь. Уже давным-давно писал для знакомой как раз на Delphi (ещё на третьем) калькулятор на русском языке (ей это нужно было в качестве курсовика). Типа "сумма двух и трех умноженная на пять" ну и ответ 25. :) Если кому надо - могу попробовать откопать исходники.
Это сообщение отредактировал -=Велла=- - 12-08-2006 - 23:14
| QUOTE (RoyalFlesh @ 15.08.2006 - время: 06:33) |
| Мнда, из-за такого пустяка начинать новую тему (возглас удивления и непонимания)... |
Полностью согласен с высказыванием.
По-моему легче такую ерунду самому сесть и написать.
Чем потратить кучу времени на написание темы в форуме, на ожидание ответов.
Да потом, в своем коде в любом случае легче разбираться.
При вводе числа и нажатии перевод выдает число прописью.
Работает от 1 до 1000.
Ну а рубли, копейки и больший разряд я думаю, что по аналогии сделать
не трудно.
Это сообщение отредактировал kiskus - 25-07-2007 - 16:30
Присоединённый файл
Chisla_slovami.zip