SMMoneyStr component |
|
| This component gives an opportunity of reception from numeric value to its verbal string. The opportunity of the task of currency (US dollars, DM, euros, british pounds, UAH, ukrainian karbovanets and Russian roubles, South Africa Rands, Dominican Republic peso, Rupiah), language of translation (English, German, Russian, Ukrainian, Spanish, Indonesian) and types of number translation in a string is realized. | |
| 5K | Last updated: July 11, 2022 |
| D3-D2005, CB3-6, BDS2006/2007/2009/2010/XE/XE2/XE3/XE4/XE5/XE6/XE7/XE8, RAD Studio 10 Seattle, 10.1 Berlin, 10.2 Tokyo, 10.3 Rio, 10.4 Sydney, 11 Alexandria, 12 Athens | Freeware (with sources): smcmpnt.zip |
You can define:
property Currency
- currency for translation (tcUAH,
tcKarbovanec, tcUSD, tcRUR, tcDM, tcPound, tcEuro)
property Language
- language for translation (tlUkrainian,
tlRussian, tlEnglish, tlGerman, tlSpain)
property Expand
- types for translation
exWholeSum:
expand of the whole part of the number value ('fourty five' or '45')
exWholeCurrency:
expand of the currency for whole part ('rubles' or 'rub')
exFractionSum:
expand of the fractional part of the number value ('ten' or '10')
exFractionCurrency:
expand of the currency for fractional part ('centes' or 'cnt')
property CharCase:
ccLower: all
characters in a target string is a small
ccProper: first
character is a capital, all rest is a small
ccUpper: all
characters in a target string is a capital
The opportunity of use not component, and usual call of
function (without registration components), returning verbal
string also:
function GetMoneyStr(Value:
Double; Expand: TExpand; Language: TLanguage; Currency:
TCurrency; CharCase: TCharCase): string;
PS in near future I plan to add a new languages of translation, and also reception of verbal representation not only numbers, but also dates!
Big thanks to Lars Paprotny (paprotny@gkss.de, paprotny@gmx.de). Without Lars help I couldn't create a english and german language support.
If anybody want to help me in new languages support then send a message to me. But component is freeware and I cann't offer a fee for translation.
 |
 |
Copyright© 1998-2024, Scalabium
Software. All rights reserved. |