1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

program Project1;
{$APPTYPE CONSOLE}

uses
  Windows, SysUtils;

const Fmt : array [TFloatFormat] of string[10] =
         ('general','exponent','fixed','number','currency');

procedure Testit (Value :  Extended);
var
  i, j : Integer;
  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;
  ReadLn;
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.