var nom: Integer; //число символов до запятой включительно
len: Integer; //количество символов в строке
x: Real; //число
str: String;
begin
x:=545.55487;
str:=FloatToStr(x);
nom:=Pos(',', str);
len:=Length(str);
nom:=len-nom; //nom будет равно 5
end;
Есть ли функция?
[SIZE=1]Народ, есть ли функция в Delphi, возвращающая число знаков после запятой в числах типа real?[/SIZE]
Есть!!!
Не обязательно было так кричать!
Не обязательно было так кричать!
ток чтоб в неруской винде глюка не возникло надо так....
Код:
...
nom:=Pos(DecimalSeparator, str);
...
nom:=Pos(DecimalSeparator, str);
...