Как-то мне с интернет-рассылкой сайта http://delphi.mastak.com попал модуль SumProps.pas, назначение которого заключалось в пребразовании значения вещественного числа (значения валюты) в его текстовое представление, так называемая - "сумма прописью". Основное направление моей программерской деятельности - бухгалтерское программное обеспечение, в часности СУБД "Товар-склад", "Зарплата", "Розничная торговля", где часто требуется указывать сумму прописью. Набор функций модуля SumProps.pas меня не удовлетворял по нескольким причинам: во-первых, в виду моего "локального" положения (Донбасс), т.к. требовалась возможность печатать сумму прописью на нескольких языках (русском и украинском), а также в виду того, что на территории моей страны кроме национальной валюты - гривны, ходят еще и ЕВРО, а народ до сих пор предпочитает все хранить в "сберегательных баксах" и ездить
на заработки в Россию возвращаясь оттуда с деревянными. Во-вторых, захотелось вот о!
дин раз это написать и забыть начисто, что там где и как работает, но имея при этом возможность быстро добавить другую валюту, язык просто добавлением новых констант и "пересборкой" исходника. Так появился невизуальный компонент. Потом - захотелось "умных" TLabel, который все это умеют делать сами.
Архив включает TCurrencyToString - невизуальный компонент TCurrency2Currency - невизуальный компонент для перевода денег из одной валюты в другую по курсу TCurrencyLabel та же TLabel, без свойства Caption, со свойством Text(ReadOnly)+ свойства TCurrencyToString. TCurrencyDBLabel TCurrencyQRLabel TCurrencyQRDBLabel Для работы с визуальными компонентами сначала поэксперементируйте с TCurrencyToString, а визуальные компоненты лишь повторяют свои аналоги + свойства TCurrencyToString. По всем вопросам - mailto:xbasesoft@fromru.com
»»» Скачать: исходные тексты (41кб)
Как-то мне с интернет-рассылкой сайта http://delphi.mastak.com попал модуль SumProps.pas, назначение которого заключалось в пребразовании значения вещественного числа (значения валюты) в его текстовое представление, так называемая - "сумма прописью". Основное направление моей программерской деятельности - бухгалтерское программное обеспечение, в часности СУБД "Товар-склад", "Зарплата", "Розничная торговля", где часто требуется указывать сумму прописью. Набор функций модуля SumProps.pas меня не удовлетворял по нескольким причинам: во-первых, в виду моего "локального" положения (Донбасс), т.к. требовалась возможность печатать сумму прописью на нескольких языках (русском и украинском), а также в виду того, что на территории моей страны кроме национальной валюты - гривны, ходят еще и ЕВРО, а народ до сих пор предпочитает все хранить в "сберегательных баксах" и ездить
на заработки в Россию возвращаясь оттуда с деревянными. Во-вторых, захотелось вот о!
дин раз это написать и забыть начисто, что там где и как работает, но имея при этом возможность быстро добавить другую валюту, язык просто добавлением новых констант и "пересборкой" исходника. Так появился невизуальный компонент. Потом - захотелось "умных" TLabel, который все это умеют делать сами.
Архив включает TCurrencyToString - невизуальный компонент TCurrency2Currency - невизуальный компонент для перевода денег из одной валюты в другую по курсу TCurrencyLabel та же TLabel, без свойства Caption, со свойством Text(ReadOnly)+ свойства TCurrencyToString. TCurrencyDBLabel TCurrencyQRLabel TCurrencyQRDBLabel Для работы с визуальными компонентами сначала поэксперементируйте с TCurrencyToString, а визуальные компоненты лишь повторяют свои аналоги + свойства TCurrencyToString. По всем вопросам - mailto:xbasesoft@fromru.com
»»» Скачать: исходные тексты (41кб)
NT/XP
Давненько тут поднимался вопрос о логинах и пассвордах... некий чел [ 3223(jab) ] старательно обьяснял ход кодирования ...
IBUpdateSQL Хитрый запрос.
Всем привет! Имеется запрос на выборку из 3-х таблиц: SELECT NEZAV_29.PKEY, NEZAV_29.TEMP1, NEZAV_29.NEZ_2, T_SKLAD....
Открытие БД на Дос-машине в сети
Имеем: в сети один комп под МС-ДОС 5.0, работает с остальными по NetBEUI, диск расшарен, при попытке открыть на нем БД (...
:-) ReadOnly для ячейки StringGrida
Привет всем! Как установить свойство ReadOnly для ячейки StringGrida? Я делал так: if (ARow = Number) then Data....
Без темы.
К примеру: главная форма - размещены компоненты DBEdit, в другом модуле DM (TDataModule) содержаться TTable, ...
Введение в технологию IntraWeb
Одной из новинок, появившихся в Delphi 7, являются компоненты IntraWeb от компании AToZed Software, позволяющие визуально проектировать Web серверные приложения. Вот небольшой пример, призванный показать, как легко создавать IntraWeb приложения. Приложение, которое разрабатывается в этом примере, просит пользователя ввести какой-нибудь текст и показывает введённый текст в выскакивающем окне. Пример использует автономный режим (standalone mode), поэтому создаваемое приложение будет запускаться без Web-сервера.
Delphi 6 в подлиннике
Delphi 6 - новая версия популярной системы быстрой разработки приложений. В книге описываются инструментальные средства среды Delphi 6, приводятся основы языка программирования Object Pascal и рассматриваются компоненты, свойства, методы и события, необходимые для разработки широкого спектра программ. Особое внимание уделяется работе с базами данных. Показывается использование как локальных, так и удаленных баз данных, включая создание многоуровневых информационных систем и публикацию результатов запросов через Интернет. Благодаря большому количеству затронутых тем, подробному изложению и многочисленным примерам книга будет полезна как начинающим, так и опытным программистам.
Автор: Гофман В.
DelphiHiTech - Профессиональное программирование Это крупный портал для Delphi программистов. Здесь можно найти: статьи, исходники, готовые программы, компоненты, ссылки на сайты по программированию, голосования, тесты и многое другое...
» Оценка сайта: 3
Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
На сайте выложен анонс пилотного выпуска журнала, вступительное слово от редакции.
Для души
Хокку дня
Меньше и меньше кругом самураев Вот и соседи недавно Тоже свалили в Израиль...
Афоризмы
Абсолютным индикатором успеха в бизнесе является желание платить налоги....
Фраза дня
Я знаю джиу-джитсу, самбо, дзюдо, айкидо и много дpугих стpашных слов.
Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Англии детям до 10-лет запрещается смотреть на обнаженные манекены
В городе Гилфорд в Коннектикуте (США) можно украшать елку на рождество только огнями белого цвета.
И на закуску коротенький анекдот
- Ты уже 10 лет женат, и ни разу не изменил! Почему? - Ну... на то есть две причины... - Наверное любовь и верность? - Нет, лень и порносайты!