NumWords Version 4.6

1. If you are upgrading from a version earlier than 3.1, DELETE qr_cusdbt.pas from your library directory.
   
   
2. If you are upgrading from a version earlier than 4.0, DELETE dollar.res, and pound.res from your library directory.
   
   
3. Copy numwords.pas, numw.pas, numw_deu.pas, num_eng.pas, num_esp.pas, num_fra.pas, numw_ita.pas, & num_trk.pas, to your library directory.
   
   
4. If you don't want Quick Reports functionality you can just delete QRNumW.pas, QRCusDBT.pas and QRDBCash.pas

For Quick Reports Functionality:

5. Also copy QRNumW.pas, QRCusDBT.pas and QRDBCash.pas to your library directory.
   
   
6. Install components from QRNumW.pas in the normal way

Use (Without Quick Reports)

See Demo.dpr, Demo1.dfm, & Demo1.pas (included in this archive) for more information.

1. Add NumWords to the Uses clause of the Implementation section of your application unit.
   
   
2. You can use the various members of the object InWords : TNumWords as illustrated below

Function HasGender (Gender : TGender) : Boolean

This fuction allows you to find out if a given language uses a gender

TGender = (genMale, genFemale, genNeuter) is defined in NumW.pas

e.g. English has no gender; Deutsch has Masculine, Feminine, & Neuter; Français has Masculine & Feminine.

Example

Uses
  NumWords, NumW;

Procedure CheckGenderList;
Begin
  GenderList.Items.Clear;
  If InWords.HasGender (genMale) Then GenderList.Items.Add ('Male');
  If InWords.HasGender (genFemale) Then GenderList.Items.Add ('Female');
  If InWords.HasGender (genNeuter) Then GenderList.Items.Add ('Neuter');
End;

Procedure SelectLocale (CountryCode, LanguageCode : Integer)

Your local language and currency information is automatically obtained from Windows when your program starts, you can use this procedure to override the defaults and use a foreign language, or currency

Example

Uses
  Windows, NumWords;

Procedure TForm1.FormShow (Sender : TObject);
Begin
  InWords.SelectLocale (CTRY_GERMANY, LANG_GERMAN);
End;

Function Number (TheNumber : Integer; Gender : TGender) : String

TGender = (genMale, genFemale, genNeuter) is defined in NumW.pas

This function returns a String containing the value passed in TheNumber in words

If you want to select the gender of the string returned pass a value in Gender if you are not worried about gender, use genNeuter

If the language in use does not support gender this parameter is ignored

Example

Uses
  NumWords, NumW;

Procedure Convert (ANum : Integer);
Var
  AString : String;
Begin
  AString := InWords.Number (ANum, genFemale);
  .
  .
  .
  AString := InWords.Number (StrToInt (NumBox.Text), genNeuter);
  .
  .
  .
End;

Function IMoney (Major, Minor : Integer; EuroMode : Boolean) : String

Convert a sum of money into words: Dollars are passed in Major, Cents are passed in Minor.

The EuroMode parameter is for European countries who are currently operating both their national currencies and the new Pan-EEC 'Euro' / 'Cent' currency. If this flag is False (noEuro) then the value will be printed using the local currency. If this flag is True (useEuro) then the value will be printed using the 'Euro' and 'Cent'.

For non-European languages this parameter is ignored

Example

Uses
  NumWords;
  
Procedure TRepForm.QRLabel1Print (Sender : TObject; Var Value : String);
Begin
  Value:=InWords.IMoney (Trunc(DataModule1.Table2.FieldByName ('Pounds').AsFloat),
                         Trunc(DataModule1.Table2.FieldByName ('Pence').AsFloat),
                         useEuro
                        );
End;
   
Procedure TRepForm.QRLabel2Print (Sender : TObject; Var Value : String);
Begin
  Value:=InWords.IMoney (Trunc(DataModule1.Table2.FieldByName ('Pounds').AsFloat),
                         Trunc(DataModule1.Table2.FieldByName ('Pence').AsFloat),
                         noEuro
                        );
End;

Function EMoney (TheAmount : Extended; EuroMode : Boolean) : String

The same as the previous function except that the value is passed as an Extended value, with Dollars in the integer part, and Cents in the remainder.

Example

Uses
  NumWords;
  
Procedure TRepForm.QRLabel1Print (Sender : TObject; Var Value : String);
Begin
  Value:=InWords.EMoney (DataModule1.Table2.FieldByName ('Pounds').AsFloat, useEuro);
End;
   
Procedure TRepForm.QRLabel2Print (Sender : TObject; Var Value : String);
Begin
  Value:=InWords.EMoney (DataModule1.Table2.FieldByName ('Pounds').AsFloat, noEuro);
End;

Use (With Quick Reports)

See QRDemo.dpr, QRDemo1.dfm, QRDemo1.pas, QRDemo2.dfm, And QRDemo2.pas (included in this archive) for more information.

1. After installation, you will have a new component on the Samples tab: TQRDBMoneyWords
   
   
2. Use TQRDBMoneyWords exactly the same as TQRDBText (any numeric fields will be displayed as money, and in words.)

Example form definition

   object QRDBMoneyWords : TQRDBMoneyWords
     DataSet = DataModule1.Table3
     DataField = 'Amount'
     Gender = genNeuter
     EuroMode = True
     Alignment = taLeftJustify
     AutoSize = True
     AutoStretch = False
     WordWrap = True
   end

Additional Properties

Gender is of type TGender (See Function Number (TheNumber : Integer; Gender : TGender) : String above). If the field you are trying to print is an integer, this property controls the gender that it will be printed in.

EuroMode a Boolean flag. If it is True and the selected language is in use in the EEC, the value will be printed in Euros and Cents. If it is False or the selected language is not in use in the EEC, the value will be printed in the normal currency.

See Function IMoney (Major, Minor : Integer; EuroMode : Boolean) : String above for more details.

Missing Functionality

The following parts of NumWords are currently 'missing'.

Most of these issues can be resolved with a quick e-mail conversation. If you need this functionality, you will also be able to give me the information I need to implement it.

• No currency support for Español
• Translation routines do not yet support gender
• No Euro support of Italia
• No local currency support for various countries

History

• 1.0 English version. Not released
• 2.0 Added support for printing database money fields as well as numbers
• 2.1
  • Fixed bug, 2 digit numbers displayed as (e.g. and ninety three not ninety three)
  • Fixed floating point errors in EMoneyInWords
• 3.0
  • Added support for printing money in words for Quick Reports 2
  • Floating point fix in 2.1 still didn't work properly, so I've fixed it again
• 3.1
  • In Delphi 4, resource strings no longer clash with: %s is not a valid integer value and %s is not a valid floating point value
  • Changed Filename of QR_CusDBT.pas to QRCusDBT.pas
• 3.2
  • Improved Quick Reports demo program.
  • Added DB to the Uses clause of QRDBCash.pas's Implementation section, because with Delphi 4, field declarations are in DB and no longer in DBTables.
• 4.0
  • Added support for Deutsch, Español, & Italiano.
  • Added currency support for USA, New Zealand, Australia, Eire, U.K., Österreich, Deutschland, Italia, and Helvetica.
  • The English version didn't have enough 'and's appearing - fixed it.
  • Simplified the English version, based on ideas from the Deutsch version - No longer uses case statements, now uses arrays.
• 4.1 Fixed compile error bug Variable 'EuroMode' not defined
• 4.2
  • Added Français.
  • Added basic support for gender.
  • Improved Euro currency support.
  • TNumWords is now a class.
• 4.3
  • Corrected stupid spelling mistakes in English unit.
  • Added support for Turkish.
  • Added (untested) currency support for Français.
  • Added Euro Buttons to demo program.
  • Added EuroMode and Gender Properties to QRDBMoneyWords
  • Re-wrote a lot of the documentation.
• 4.4
  • Corrected bug in locale detection
• 4.5
  • Property editor, & design mode code are now in a seperate unit, and are not included in the final program.
• 4.6
  • Corrected spelling mistake in the English driver, 30 is misspelled as thrirty instead of thirty.

Testing

If you've tested it with Delphi 3, 4, or 5; or C++ Builder, e-mail me (Andy Preston) and let me know. Then I can update this.

If you've got any fab-and-groovy modifications or just want to let me know you love NumWords, I'd also be glad to hear from you.

• Version 4.5 Tested by Apollo Developments on Delphi 2.0, Quick Reports 2 & Windows '95
  
  
• Version 4.5 tested by Hubert Bannwarth on Delphi 5 & Windows 2000 French
  
  
• Version 4.0 tested by Andreas Schmidt on Delphi 4.0

OSI Certified is a certification mark of the Open Source Initiative. Borland Delphi, and C++ Builder are trade marks of Inprise Corp. Quick Reports is a trade mark of QU-Soft ASD. Windows is a trade mark of Microsoft Corp.