TNumbToString для Delphi 4


Новости сайта
Ссылки на мои программы Звуковые схемы для Windows Документация по программированию и др.
Программы посетителей сайта Исходники программ, присланные посетителями
Компоненты для Delphi
Полезные ссылки для программистов, Web-дизайнеров и т.д. Ссылки по заработку в интернет Интернет-магазин Bolero
Оставьте свои впечатления о сайте и программах Если у Вас есть что обсудить в области программирования, пишите, поболтаем Какая операционная система по Вашему мнению является лучшей? Ищите на сайте и сервере www.narod.ru
Немного информации об авторе сайта Заказать Web-страницу или программу
Предназначен для преобразования числа в сумму прописью.

Properties:
   Summa - число типа Real, которое необходимо преобразовать.
   Valute - начало целой части валюты.
   Drob - начало дробной части валюты.

Во второй версии добавлены Properties:
   VEnding1 - окончание целой части валюты, при 1.
   VEnding2 - окончание целой части валюты, при 2.
   VEnding5 - окончание целой части валюты, при 5.
   DEnding1 - окончание дробной части валюты, при 1.
   DEnding2 - окончание дробной части валюты, при 2.
   DEnding5 - окончание дробной части валюты, при 5.

Пример задания обозначения валюты:
Valute:='рубл'
VEnding1:='ь'
VEnding2:='я'
VEnding5:='ей'
Drob:='копе'
DEnding1:='йка'
DEnding2:='йки'
DEnding5:='ек'

Преобразование осуществляет функция: RubCopToStr;

Ограничение: преобразование осуществляется только если Summa<=999999999,99

Для скачивания компонент предоставлен без исходных текстов.

Скачать компонент(16 Кб.)

Заказать по почте


On-Line игра

Hosted by uCoz