Форум: "Основная";
Текущий архив: 2002.12.19;
Скачать: [xml.tar.bz2];
ВнизОкругление Найти похожие ветки
← →
moorcat (2002-12-09 12:52) [0]Как округлить тип Real до необходимого значения? (Например до сотых)
← →
OlegMsc (2002-12-09 12:57) [1]RoundTo(...,...)
← →
Виктор Щербаков (2002-12-09 13:00) [2]Не обманывай. В Д5 нет такой функции :)
← →
OlegMsc (2002-12-09 13:02) [3]жаль :(
но наверное есть другая...
я просто в этом уверен :)
← →
Axis_of_Evil (2002-12-09 13:02) [4]свою написать
← →
Виктор Щербаков (2002-12-09 13:03) [5]OlegMsc © (09.12.02 13:02)
Ага. Например умножить на сто, округлить до целых и поделить на сто.
← →
moorcat (2002-12-09 13:32) [6]Например, так:
function TForm1.Okrugl(cs: double; numb: integer): double;
var
db,db1,db2: double;
i: int64;
ii,ink,i1: integer;
begin
db:=cs-int(cs);
ink:=1;
for ii:=1 to numb
do ink:=ink*10;
db1:=db*ink;
db2:=cs*ink*100;
i:=trunc(int(db2)/100);
i1:=trunc(db2-i*100);
if i1>49
then inc(i);
result:=i/ink;
end;
← →
Separator (2002-12-09 13:34) [7]Зачем так мучатся?
function RoundNumber(Value: double; Digit: byte): string;
var
Factor: Extended;
begin
Factor:= Int(Exp(Digit*Ln(10)));
Result:= FloatToStr(Round(Factor*Value)/Factor);
end;
← →
Anatoly Podgoretsky (2002-12-09 14:13) [8]Для любителей
procedure TForm1.Button1Click(Sender: TObject);
var
Num:Single;
I : Integer;
begin
Num := 0.02;
ShowMessage(FloatToStr(Num));
ShowMessage(FloatToStr(Trunc(Num * 100)/100));
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.12.19;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.045 c