Дельфи


Популярное сегодня
Лучшее за неделю
Closed TopicStart new topicStart Poll

Страницы: (1) 1 
-=Mafia=-
дата: [ i ]
  • *
  • Интересующийся
  • Репутация: 8
  • Статус: Давай пообщаемся!
  • Member OfflineМужчинаЖенат
 Подскажите пожалуйста. Нужно чтобы написав например цену 10 рублей, по нажатию кнопки получалось "десять рублей"
Модест
дата: [ i ]
  • *
  • Интересующийся
  • Репутация: 9
  • Статус: Давай пообщаемся!
  • Member OfflineМужчинаСвободен
 procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Десять рублей')
end;
-=Велла=-
дата: [ i ]
  • Group Icon
  • Акула пера
  • Репутация: 2775
  • Статус: Паникёрша и скандалистка )))
  • Member OfflineЖенщинаСвободна
 а если там будет любая цифра, тогда что? писать миллион процедур на миллион цифр? а если с копейками?
Модест
дата: [ i ]
  • *
  • Интересующийся
  • Репутация: 9
  • Статус: Давай пообщаемся!
  • Member OfflineМужчинаСвободен
 Мой телепатор в ремонте. Какой вопрос, такой и ответ :)
mvf23
дата: [ i ]
  • *
  • Специалист
  • Репутация: 62
  • Статус: Давай пообщаемся!
  • Member OfflineМужчинаСвободен
 Специально для тех кто ещё не понял в чем вопрос.

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

Вопрос изначально поставлен конечно не очень корректно, но достаточно понятно.

Это сообщение отредактировал mvf23 - 12-08-2006 - 02:30
mvf23
дата: [ i ]
  • *
  • Специалист
  • Репутация: 62
  • Статус: Давай пообщаемся!
  • Member OfflineМужчинаСвободен
 ИМХО задача для школьника. Примерно 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
дата: [ i ]
  • Group Icon
  • Мастер
  • Репутация: 85
  • Статус: Давай пообщаемся!
  • Member OfflineМужчинаСвободен
 Мнда, из-за такого пустяка начинать новую тему (возглас удивления и непонимания)...
Saturas
дата: [ i ]
  • *
  • Профессионал
  • Репутация: 70
  • Статус: Давай пообщаемся!
  • Member OfflineМужчинаСвободен
QUOTE (RoyalFlesh @ 15.08.2006 - время: 06:33)
Мнда, из-за такого пустяка начинать новую тему (возглас удивления и непонимания)...

Полностью согласен с высказыванием.
По-моему легче такую ерунду самому сесть и написать.
Чем потратить кучу времени на написание темы в форуме, на ожидание ответов.
Да потом, в своем коде в любом случае легче разбираться.
kiskus
дата: [ i ]
  • *
  • Новичок
  • Репутация: 14
  • Статус: Давай пообщаемся!
  • Member OfflineМужчинаСвободен
 Вот программа и исходники на Delphi7.
При вводе числа и нажатии перевод выдает число прописью.
Работает от 1 до 1000.
Ну а рубли, копейки и больший разряд я думаю, что по аналогии сделать
не трудно.

Это сообщение отредактировал kiskus - 25-07-2007 - 16:30
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)

Страницы: (1) 1

Closed TopicStart new topicStart Poll0


Рекомендуем почитать также топики:

K610i

Tom Clancy's Ghost Recon - Advanced Warfighter

Nokia 5610 или SE k810i

Виснет мышь USB...

У меня Nokia 7500 Prism




Дельфи
>