Help!, Разряд дробной части числа Опции

[Anches]

Вывести заданный разряд дробной части действительного числа.разряды нумеруются от десятичной точки направо,начиная с 1.используя int,frac.

N:=strtofloat(edit1.text);
i:=0;
 while frac(n)<>0 do 
   begin
   n:=n*10;
   i:=i+1;
   end;
edit2.text:=inttostr(i);

что не так?результат то верный,то че-папальный.пожаиста помогите!

Сообщение отредактировано: мисс_граффити - 23.12.2006 0:48