Есть ли функция?

[Альберт]

Народ, есть ли функция в Delphi,  возвращающая число знаков после запятой в числах типа real?

[Igel]

На сколько я помню таких функций нет, т.к. сама структура числа REAL фиксирует число знаков после запятой.
Сейчас не помню, но в Паскале там было порядка 8-ми знаков.

[x77]

Альберт, именно функции - нет. но есть функция, возвращающая дробную часть Frac (x: extended): extended; соответственно можно узнать число знаков после запятой преобразовав полученное значение в строку и отбросив два знака (0 и точку, которые тоже возвращает Frac):

Length (FloatToStr (Frac (n))) - 2;