-=Mafia=- | |
|
Подскажите пожалуйста. Нужно чтобы написав например цену 10 рублей, по нажатию кнопки получалось "десять рублей"
|
Модест | |
|
procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage('Десять рублей') end; |
-=Велла=- | |
|
а если там будет любая цифра, тогда что? писать миллион процедур на миллион цифр? а если с копейками?
|
Модест | |
|
Мой телепатор в ремонте. Какой вопрос, такой и ответ :)
|
mvf23 | |
|
Специально для тех кто ещё не понял в чем вопрос. Требуется преобразовать число в пропись на Delphi. Вопрос изначально поставлен конечно не очень корректно, но достаточно понятно. Это сообщение отредактировал mvf23 - 12-08-2006 - 02:30 |
mvf23 | |
|
ИМХО задача для школьника. Примерно 20-30 строчек кода если без сопряжения окончаний. Максимум 100 - если с сопряжением. Валяется повсеместно... Могу написать с нуля за 15-20 мин. почти на любом языке программирования. Поиск в гугле Вот прямые ссылки на странички с исходниками 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 |
RoyalFlesh | |
|
Мнда, из-за такого пустяка начинать новую тему (возглас удивления и непонимания)...
|
Saturas | |||
|
Полностью согласен с высказыванием. По-моему легче такую ерунду самому сесть и написать. Чем потратить кучу времени на написание темы в форуме, на ожидание ответов. Да потом, в своем коде в любом случае легче разбираться. |
kiskus | |
|
Вот программа и исходники на Delphi7. При вводе числа и нажатии перевод выдает число прописью. Работает от 1 до 1000. Ну а рубли, копейки и больший разряд я думаю, что по аналогии сделать не трудно. Это сообщение отредактировал kiskus - 25-07-2007 - 16:30 |
Рекомендуем почитать также топики: K610i Tom Clancy's Ghost Recon - Advanced Warfighter Nokia 5610 или SE k810i Виснет мышь USB... У меня Nokia 7500 Prism |