Функции вычисления кратных приставок

GetScPref(0.00017,0,'Ф');//=170 мкФ
GetScPref(1e20,0,'Дж');//=100 ЭДж
GetScPref(0.19856,2,'г');//=198,56 мг
GetScPref(0.19856,1,'г');//=198,6 мг
{-----------------}
GetCompPref(100000000,2);//=95,37 МиБ
GetCompPref(1000,2);//=0,98 КиБ

uses
  Math, SysUtils;
 
function GetScPref(v:extended;n:byte;meas:string):string;
var
  t:integer;
const
  pref:array[-8..8] of string=
         ('и','з','а','ф','п','н','мк','м','','к','М','Г','Т','П','Э','З','И');
begin
  t:=EnsureRange(trunc(logN(990,abs(v)))+(sign(ln(abs(v)))-1) div 2,-8,8);
  Result:=FloatToStr(RoundTo(v*power(10,-min(max(t*3,-24),24)),-n))+' '+pref[t]+meas;
end;
 
function GetCompPref(v:int64;n:byte):string;
var
  t:integer;
const
  pref:array[0..8] of string=('','Ки','Ми','Ги','Ти','Пи','Эи','Зи','Йи');
begin
  t:=EnsureRange(trunc(logN(990,abs(v))),0,8);
  Result:=FloatToStr(RoundTo(v*power(2,-min(t*10,80)),-n))+' '+pref[t]+'Б';
end;