Delphi World - Функция представления чисел с плавающей точкой и нужным числом разрядов

Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...

Функция представления чисел с плавающей точкой и нужным числом разрядов

Функция представления чисел с плавающей точкой и нужным числом разрядов. Пример: Conv(2.005,2) возвращает 2.01; Conv(2.5,0) возвращает 3

function Conv(cs: double; numb: integer): double;
var 
  db, db1, db2: double;
  i: int64;
  ii, ink, i1: integer;
  st: string;
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;