а что мешает написать свою функцию?
что-нить типа:
Код:
function getround(pVal:integer):integer;
var tempStr:string;
k:integer;
res:integer;
begin
tempstr:=inttostr(pVal);
k:=strtoint(copy(tempstr,length(tempstr),1));
if k<3 then res:=pVal-k;
if (k>=3) and (k<8) then res:=pVal-k+5;
if k>=8 THEN res:=pVal-k+10;
result:=res;
end; |