Помогиет пожалуйста какаято непонятка при преобразовании типов

← →
Rule (2003-04-14 02:46) [0]

у меня значение переменной а=73342450, хранится в переменной типа Реал, когда я вывожя на экран занчение FloatToStr(a) то выводится
73342450, а когда выводится значение IntToStr(trunc(a)) то выводит значение 73342449, в чем проблемма и как мне вывести в таком случае значение переменной а без дробной части, всем огромное спасибо за внимание

← →
Спрашивающий (2003-04-14 03:55) [1]

Такой вариант имеет право на существование, он не оптимален,
зато годится для льбого типа и льбого числа.
procedure TForm1.Button1Click(Sender: TObject);
var
S:String;
begin
S:=Edit1.Text;
Edit1.Text:=Copy(S,1,Pred(Pos(DecimalSeparator,S)));
end;

← →
Спрашивающий (2003-04-14 04:04) [2]

Так более правильно, напиши функцию на основе этого примера
procedure TForm1.Button1Click(Sender: TObject);
var
S:String;
K:Word;
begin
S:=Edit1.Text;
K:= Pos(DecimalSeparator,S) ;
If K=0 Then Exit;
Edit1.Text:=Copy(S,1,Pred(K));
end;

← →
KPP (2003-04-14 09:26) [3]

FloatToStr(Int(a));

← →
Rule (2003-04-14 09:30) [4]

To KPP (14.04.03 09:26)
FloatToStr(Int(a)); - рузельтат тот же самый

← →
MBo (2003-04-14 09:32) [5]

>Rule
Round

← →
Skier (2003-04-14 09:34) [6]

Читал ?
http://www.delphikingdom.com/helloworld/reals.htm

← →
Anatoly Podgoretsky (2003-04-14 09:43) [7]

Rule © (14.04.03 02:46)
Ты делаешь все правильно, выводишь именно без дркобноц части, просто у тебя число 73342449,999.......
А FloatToStr округляет тебе до 15 знаков

← →
Rule (2003-04-14 10:09) [8]

то Anatoly Podgoretsky © (14.04.03 09:43)
Дело в том что число получается путем перемножения нескольких вещественных чисел, которые хранятся в таблице Интербейза.
так вот если вычислять вручную то получится именно первое значение, и самое интересное, если я выводу значение FloatToStr(a) то выводится правильный результат, так как мне быть в данной ситуации ????????????

← →
KPP (2003-04-14 11:37) [9]

Rule,
определись какое действительно число у тебя на входе, например так:
str(a:0:2,s);
showmessage(s);
потом можно что-то сказать

← →
Anatoly Podgoretsky (2003-04-14 11:53) [10]

Rule © (14.04.03 10:09)
Пользоваться FloatToStr, значения с плавающей запятой имеют относительную точность. У тебя точность составляет порядка 10E-15, то есть ошибка в 15 знаке. Если нужно точнее, то расчеты проихводить не с Real, а с Extended.
И не путать расчеты и вывод на экран. Разобраться, что такое отсечение, какие есть методы округления. Как производится вывод на экран вещественных чисел.
Что трбеуется по твоей задаче, вот эту часть никто кроме тебя не сделает.
При вопросах неплохо бы было указывать версию Дельфи, а для Generic типов и настройки ее, а Real это именно такой тип и его поведение зависит или от версии и/или от настроек Дельфи.

← →
Rule (2003-04-14 12:20) [11]

Спасибо всем разобрался, получилось .... :-)

Помогиет пожалуйста какаято непонятка при преобразовании типов Найти похожие ветки