[Overview][Constants][Types][Classes][Procedures and functions][Variables] |
Convert a float value to a string using a given format.
Source position: line 0
function FloatToStrF( |
Value: Double; |
format: TFloatFormat; |
Precision: Integer; |
Digits: Integer |
):String; |
Value: Single; |
format: TFloatFormat; |
Precision: Integer; |
Digits: Integer |
):String; |
Value: Comp; |
format: TFloatFormat; |
Precision: Integer; |
Digits: Integer |
):String; |
Value: Currency; |
format: TFloatFormat; |
Precision: Integer; |
Digits: Integer |
):String; |
Value: Int64; |
format: TFloatFormat; |
Precision: Integer; |
Digits: Integer |
):String; |
FloatToStrFconverts the floating point number valueto a string representation, according to the settings of the parameters Format, Precisionand Digits.
The meaning of the Precisionand Digitsparameter depends on the Formatparameter. The format is controlled mainly by the Formatparameter. It can have one of the following values:
None.
|
Convert a float value to a string using a fixed format. |
|
|
Return a string representation of a float, with a given format. |
Program Example68; { This program demonstrates the FloatToStrF function } Uses sysutils; Const Fmt : Array [TFloatFormat] of string[10] = ('general','exponent','fixed','number','Currency'); Procedure Testit (Value : Extended); Var I,J : longint; FF : TFloatFormat; begin For I:=5 to 15 do For J:=1 to 4 do For FF:=ffgeneral to ffcurrency do begin Write (Value,'(Prec: ',I:2,', Dig: ',J,', fmt : ',Fmt[ff],') : '); Writeln (FloatToStrf(Value,FF,I,J)); Write (-Value,'(Prec: ',I:2,', Dig: ',J,', fmt : ',Fmt[ff],') : '); Writeln (FloatToStrf(-Value,FF,I,J)); end; end; Begin Testit (1.1); Testit (1.1E1); Testit (1.1E-1); Testit (1.1E5); Testit (1.1E-5); Testit (1.1E10); Testit (1.1E-10); Testit (1.1E15); Testit (1.1E-15); Testit (1.1E100); Testit (1.1E-100); End.