Форум: "Базы";
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];

Вниз

Округление   Найти похожие ветки 

← →
WhiteRat   (2002-01-22 10:14) [3]

Я делал так:


function RoundExt(Arg: Real; Digits: Byte): Real
var
i: Byte;
rounder: LongInt;
begin
rounder := 1;
for i := 1 to Digits do rounder := rounder*10;
Result := Arg*rounder;
Result := Round(Result);
Result := Result/rounder;
end;


---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.005 c