Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как округлать числа в Delphi? [D6, WinXP]

Ahmad © (2002-08-21 22:03:00)
Как округлать числа в Delphi?
Если допустим стринг перевести в реал и разделить на дробное число, то в числе появляюстся много знаков после зяпятой может кто подсказать как этого избежать?

Ahmad (2002-08-24 04:38:00) [1]
БОЛЬШОЕ ВСЕМ СПАСИБО!
НА ОСНОВЕ ВАШИХ ОТВЕТОВ МНЕ УДАЛОСЬ СОЗДАТЬ НЕСКОЛЬКО ДОРАБОТАННЫЙ TEdit, ЕДИНСТВЕННОЕ ЧТО НЕ ХВАТАЕТ ДЛЯ ПОЛНОГО ЧИСЛОВОГО ВИДА, ЭТО ВЫРАВНИВАНИЕ ТЕКСТА С ПРАВА, Т.Е. НУЖНО ПРИСОБАЧИТЬ СВОЙСТВО Alignment TEdit"у, КАКИМ ОБРАЗОМ ЭТО МОЖНО СДЕЛАТЬ?
ЕЩЕ РАЗ ВСЕМ СПАСИБО!

SI-riuss (2002-08-24 02:04:00) [2]
Все просто. Ты дели не знаком "/" а функцией "div".
Пример:
a/b=c - получишь дробное число
a div b = c - получишь округленное до целого число

Вшсл (2002-08-22 21:18:00) [3]
To 102011 >> Просвети, либо дай ссылочку на инфу, насчет того что очевидное:

function Round3(Value:Double):Double;
begin
Result:=Round(Value*1000)/1000;
end; -

хуже предложенного тобой. :-)

c102011 (2002-08-22 12:04:00) [4]
Модуль округления чисел до требуемой точности после запятой
(модуль необходимо подключить в раздел uses формы)

unit Rounds;

interface

uses
SysUtils, Math;

Function RoundF(Value: Double; Precision:Integer):Double;

implementation

Function RoundF (Value:Double; Precision:Integer):Double;
var
N :String[1];
S, K :Integer;
begin
IF Value<0 Then
K:=-1
ELSE
K:=1;

Value:=Value*K;
S:=ROUND(Power(10, Precision));
N:= Copy(FloatToStr(Frac(Value)),Precision+3, 1);

IF N>="5" Then
Result:= (Trunc(Value*S)+1)/S*K
ELSE
Result:= ROUND(Value*S)/S*K;
end;

end.

{----------------------------------------------------------------
Пример округления до 3-х знаков после запятой:
Value:число или выражение типа TFloat

Вычисляемое поле POLE1 таблицы Table1
Table1POLE1.value:=RoundF(Value, 3)
Функция только округляет числа, не форматируя их вывод. Т.е. незначащие нули не отображаются. Для форматирования вывода можно использовать процедуру FormatFloat (возвращает строку).

Пример округления с форматированием:
POLE1:числовое поле

Table1POLE1.AsVariant:=FormatFloat(‘0.000’, RoundF(Table2POLE2.value, 3))

Edit1.Text:=FormatFloat(‘0.000’, RoundF(Table2POLE2.value, 3))
----------------------------------------------------------------}
этот модуль пришлось написать из-за того что делфи работает с плавающей запятой и не всегда можно получить один и тот же результат при делениии и округлении, например 2-х пар чисел, результат деления которых арифметически одинаков

Sam Stone (2002-08-22 08:55:00) [5]
выводить переменную в виде FloatValue:x:y,
где х - число цифр в числе, у - число цифр после запятой. По крайней мере перевод из флоата в стринг(если самому написать FloatToStr) реаизовать можно так:
function FloatToStr(value:extended):string;
var temp:string;
begin
str(value:5:5,temp);
FloatToStr:=Temp;
End;
Если не ставить после Value :5:5, то строка будет в виде х,ххх+хЕ

MBo (2002-08-22 06:53:00) [6]
если это нужно для вывода, то см. Format, FormatFLoat и т.д.

IronHawk (2002-08-21 22:16:00) [7]
http://delphibase.endimus.com
Там про это много чего есть ....

AL2002 (2002-08-21 22:11:00) [8]
Round F1

Блин, почему на мой вопрос никто не хочет ответить?

Jeer (2002-08-21 22:08:00) [9]
Не переводить и не делить.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »