http://www.delphibasics.co.uk/RTL.asp?Name=FormatFloat
| 1 |
function FormatFloat ( const Formatting : string; Value : Extended ) : string; |
| 2 |
function FormatFloat ( const Formatting : string; Value : Extended; FormatSettings : TFormatSettings ) : string; |
|
| |
| Description |
The FormatFloat function provides rich Formatting of a floating point number Value into a string.
The Formatting string may contain a mix of freeform text and control characters:
| 0 |
: Forces digit display or 0 |
| # |
: Optional digit display |
| , |
: Forces display of thousands |
| . |
: Forces display of decimals |
| E+ |
: Forces signed exponent display |
| E- |
: Optional sign exponent display |
| ; |
: Separator of +ve and -ve and zero values |
These are best understood by looking at the sample code.
Version 2 of this function is for use within threads. You furnish the FormatSettings record before invoking the call. It takes a local copy of global formatting variables that make the routine thread safe. |
| |
| Related commands |
| CurrencyDecimals |
|
Defines decimal digit count in the Format function |
| CurrencyFormat |
|
Defines currency string placement in curr display functions |
| CurrencyString |
|
The currency string used in currency display functions |
| DecimalSeparator |
|
The character used to display the decimal point |
| FloatToStrF |
|
Convert a floating point value to a string with formatting |
| Format |
|
Rich formatting of numbers and text into a string |
| FormatCurr |
|
Rich formatting of a currency value into a string |
| FormatDateTime |
|
Rich formatting of a TDateTime variable into a string |
| NegCurrFormat |
|
Defines negative amount formatting in currency displays |
| StrToFloat |
|
Convert a number string into a floating point value |
| ThousandSeparator |
|
The character used to display the thousands separator |
|
 Download this web site as a Windows program. |
|
|
|
| Example code : Showing all of the formatting data types |
var
float : extended;
begin
// Set up our floating point number
float := 1234.567;
// Display a sample value using all of the format options
// Round out the decimal value
ShowMessage('##### : '+FormatFloat('#####', float));
ShowMessage('00000 : '+FormatFloat('00000', float));
ShowMessage('0 : '+FormatFloat('0' , float));
ShowMessage('#,##0 : '+FormatFloat('#,##0', float));
ShowMessage(',0 : '+FormatFloat(',0' , float));
ShowMessage('');
// Include the decimal value
ShowMessage('0.#### : '+FormatFloat('0.####', float));
ShowMessage('0.0000 : '+FormatFloat('0.0000', float));
ShowMessage('');
// Scientific format
ShowMessage('0.0000000E+00 : '+FormatFloat('0.0000000E+00', float));
ShowMessage('0.0000000E-00 : '+FormatFloat('0.0000000E-00', float));
ShowMessage('#.#######E-## : '+FormatFloat('#.#######E-##', float));
ShowMessage('');
// Include freeform text
ShowMessage('"Value = "0.0 : '+FormatFloat('"Value = "0.0', float));
ShowMessage('');
// Different formatting for negative numbers
ShowMessage('0.0 : '+FormatFloat('0.0' , -1234.567));
ShowMessage('0.0 "CR";0.0 "DB" : '+
FormatFloat('0.0 "CR";0.0 "DB"', -1234.567));
ShowMessage('0.0 "CR";0.0 "DB" : '+
FormatFloat('0.0 "CR";0.0 "DB"', 1234.567));
ShowMessage('');
// Different format for zero value
ShowMessage('0.0 : '+FormatFloat('0.0' , 0.0));
ShowMessage('0.0;-0.0;"Nothing" : '+
FormatFloat('0.0;-0.0;"Nothing"', 0.0));
end;
|
| Show full unit code |
##### : 1235
00000 : 01235
0 : 1235
#,##0 : 1,235
,0 : 1,235
0.#### : 1234.567
0.0000 : 1234.5670
0.0000000E+00 : 1.2345670E+03
0.0000000E-00 : 1.2345670E03
#.#######E-## : 1.234567E3
"Value = " : Value = 1234.6
0.0 : -1234.6
0.0 "CR";0.0 "DB" : 1234.6 DB
0.0 "CR";0.0 "DB" : 1234.6 CR
0.0 : 0.0
0.0;-0.0;"Nothing" : Nothing
|
|