Форум: "Основная";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];
ВнизКак округлить 0.0294... до 0.3 Найти похожие ветки
← →
Awex (2002-02-21 11:34) [6]Можно и так:
........
RArray : array [0..5] of integer = 1,10,100,1000,10000,100000);
.........
function RoundEx(Value: Extended; n:integer);
begin
Result:=Round(Value*RArray[n])/RArray[n];
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c