Mega Code Archive
Negcurrformat - defines negative amount formatting in currency displays
<![CDATA[
var NegCurrFormat : Byte;
Description
The NegCurrFormat variable defines how negative currency amounts are formatted by such functions as FloatToStr and CurrToStr.
It is in effect an enumerated type, but with no names for the values. It is easiest to show their meanings by example, given below with an amount 1.23 and £ as the CurrencyString:
0 = (£1.23)
1 = -£1.23
2 = £-1.23
3 = £1.23-
4 = (1.23£)
5 = -1.23£
6 = 1.23-£
7 = 1.23£-
8 = -1.23 £
9 = -£ 1.23
10 = 1.23 £-
11 = £ 1.23-
12 = £ -1.23
13 = 1.23- £
14 = (£ 1.23)
15 = (1.23 £)
Notes
NegCurrFormat = LOCALE_INEGCURR by default.
Related commands
CurrencyDecimals Defines decimal digit count in the Format function
CurrencyFormat Defines currency string placement in curr display functions
CurrToStrF Convert a currency value to a string with formatting
DecimalSeparator The character used to display the decimal point
Format Rich formatting of numbers and text into a string
ThousandSeparator The character used to display the thousands separator
Example code : Illustrate the 16 different negative formatting flavours
var
i : Byte;
begin
// Display the amount using all the flavours of NegCurrFormat
for i := 0 to 15 do
begin
NegCurrFormat := i;
ShowMessage('Format '+IntToStr(i)+' = '+Format('%m', [-1.23]));
end;
end;
Show full unit code
Format 0 = (£1.23)
Format 1 = -£1.23
Format 2 = £-1.23
Format 3 = £1.23-
Format 4 = (1.23£)
Format 5 = -1.23£
Format 6 = 1.23-£
Format 7 = 1.23£-
Format 8 = -1.23 £
Format 9 = -£ 1.23
Format 10 = 1.23 £-
Format 11 = £ 1.23-
Format 12 = £ -1.23
Format 13 = 1.23- £
Format 14 = (£ 1.23)
Format 15 = (1.23 £)
]]>