Как корректно узнать, целое число или нет?

← →
pavor (2011-05-13 09:34) [0]

Добрый день,
требуется решить задачу:
- если число содержит дробную часть - отображать его без изменений;
- если число не содержит дробной части - добавлять в конец ",0";

То есть, если
на входе 2,3 -> отображаем 2,3, если
на входе 2 -> отображаем 2,0

Использую следующий код:
procedure TForm1.Button1Click(Sender: TObject); var test: real; dim:ShortString; const eps=0.0001; begin memo1.Lines.Clear; test:=2.3; memo1.Lines.Add("test="+floattostr(test)); test:=test-0.3; memo1.Lines.Add("test-0.3="+floattostr(test)); if ((test-trunc(test))<eps) then dim:=FloatToStr(test)+",0" else dim:=FloatToStr(test); memo1.Lines.Add("trunc(test)="+IntToStr(trunc(test))); memo1.Lines.Add("dim="+dim); end;

Вот что он выводит:
test=2,3
test-0.3=2
trunc(test)=1
dim=2

Вместо функции trunc пробовал floor, int - результат тот же.

Понятно, что проблема связана с представлением вещественных чисел, но как ее решить - пока неясно.

← →
Anatoly Podgoretsky © (2011-05-13 09:37) [1]

> - если число содержит дробную часть - отображать его без
> изменений;
> - если число не содержит дробной части - добавлять в конец
> ",0";

Неправильное, грубое решение, просто освой Format. FormatFloat

← →
pavor (2011-05-13 09:44) [2]

Большое спасибо, работает. )

Как корректно узнать, целое число или нет? Найти похожие ветки