mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 05:39:29 +01:00
42 lines
955 B
ObjectPascal
42 lines
955 B
ObjectPascal
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;
|
|
S : ShortString;
|
|
|
|
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],') : ');
|
|
SetLength(S,FloatToText (@S[1],Value,FF,I,J));
|
|
Writeln (S);
|
|
Write (-Value,'(Prec: ',I:2,', Dig: ',J,', fmt : ',Fmt[ff],') : ');
|
|
SetLength(S,FloatToText (@S[1],-Value,FF,I,J));
|
|
Writeln (S);
|
|
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. |