Count digits after point

[Aphton]

@DelphiProgrammer:
Nope!

Delphi-Quellcode:

var
  x: Single;

begin
  x := 2.048;
  writeln(x);
  writeln((length(floattostr(x)) - pos('.',floattostr(x))-1));
  readln;
end.

Output

Code:

 2.04800009727478E+0000
15