Секснарод
Старый добрый
Секснарод

Дельфи

-=Mafia=-
8/6/2006, 2:39:42 AM
Подскажите пожалуйста. Нужно чтобы написав например цену 10 рублей, по нажатию кнопки получалось "десять рублей"
Модест
8/7/2006, 5:59:03 PM
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Десять рублей')
end;
-=Велла=-
8/7/2006, 6:05:37 PM
а если там будет любая цифра, тогда что? писать миллион процедур на миллион цифр? а если с копейками?
Модест
8/8/2006, 1:58:17 PM
Мой телепатор в ремонте. Какой вопрос, такой и ответ :)
mvf23
8/12/2006, 6:29:31 AM
Специально для тех кто ещё не понял в чем вопрос.

Требуется преобразовать число в пропись на Delphi.

Вопрос изначально поставлен конечно не очень корректно, но достаточно понятно.
mvf23
8/12/2006, 3:30:14 PM
ИМХО задача для школьника. Примерно 20-30 строчек кода если без сопряжения окончаний. Максимум 100 - если с сопряжением. Валяется повсеместно... Могу написать с нуля за 15-20 мин. почти на любом языке программирования.

Поиск в гугле

Вот прямые ссылки на странички с исходниками

https://subscribe.ru/archive/comp.soft.prog...1/04221229.html
https://www.delphikingdom.com/asp/itemq.asp?mode=1&ItemID=431
https://www.delphikingdom.com/asp/viewitem.asp?catalogid=17
https://www.delphikingdom.com/asp/viewitem.asp?catalogid=805
https://www.delphikingdom.com/asp/viewitem.asp?catalogid=1105
https://www.delphikingdom.com/asp/viewitem.asp?catalogid=1106

А вот обратная задача - из прописи в число несколько сложнее. Особенно с учетом разных падежей. Вот такое в интернете не найдешь. Уже давным-давно писал для знакомой как раз на Delphi (ещё на третьем) калькулятор на русском языке (ей это нужно было в качестве курсовика). Типа "сумма двух и трех умноженная на пять" ну и ответ 25. :) Если кому надо - могу попробовать откопать исходники.
RoyalFlesh
8/15/2006, 10:33:42 AM
Мнда, из-за такого пустяка начинать новую тему (возглас удивления и непонимания)...
Saturas
11/11/2006, 2:44:28 AM
(RoyalFlesh @ 15.08.2006 - время: 06:33) Мнда, из-за такого пустяка начинать новую тему (возглас удивления и непонимания)...
Полностью согласен с высказыванием.
По-моему легче такую ерунду самому сесть и написать.
Чем потратить кучу времени на написание темы в форуме, на ожидание ответов.
Да потом, в своем коде в любом случае легче разбираться.
kiskus
11/17/2006, 11:44:03 AM
Вот программа и исходники на Delphi7.
При вводе числа и нажатии перевод выдает число прописью.
Работает от 1 до 1000.
Ну а рубли, копейки и больший разряд я думаю, что по аналогии сделать
не трудно.