这是一个四舍五入的函数，具体用法　myround(1.999,2) = 2.00 第一位1.999为要四舍五入的数，2为要取的小数位。

欢迎大家测试探讨。QQ：81392790

function myround(co t yuan: Extended; co t  : Integer): Extended;
//yuan:原浮点数， 保留 小数点后第几位
var
 ,l,m,l2:Longint;
 :string; // 原浮点数
 q:string; // 小数点前
 h:string;//小数点后
begin
 if yuan=0 then exit;// 原浮点数 0
 if  lt;0 then exit; //非法小数点后第几位
 :=floattostr(yuan);
 :=pos('.',s)  //小数点位置
 q:=midstr(s,1,p-1);
 h:=midstr(s,p+1,length(s)-length(sq)-1);
 l:=length(sh);//小数位数
 l2:=length(sq);//整数位数
 if  gt;=l then
  begin//0
  result:=strtofloat(s);
  exit;//比如 11。06 要保留到 小数点后第3位显然 不合理
  end;//
{ if  =l the  //比如 11。06 要保留到 小数点后第2位不用处理 直接返回
  begin//1
  Result:= 
  exit;
  end;//1 }
  if  lt;l then //比如 11。06 要保留到 小数点后第1位 ，。。。
  begin//2
  m:=strtoint(sh[ +1]);
  if m>=5 then
  begin
  if  gt;=1 then //保留到 小数点后第1，2。。。位
  begin//3
  sh:=midstr(sh,1, );
  sh := inttostr(strtoint(sh)+1);
  if length(sh)>  then
  begin
  sh:= midstr(sh,2, );
  sq:= inttostr(strtoint(sq)+1);
  end;
  Result:=strtofloat(sq+'.'+sh);
  exit;
  end//3
  else  //保留到 小数点后第0位
  begin//4
  sq[l2]:=chr(ord(sq[l2])+1);
  Result:=strtofloat(sq);
  exit;
  end;//4
  end
  else
  begin
  if  gt;=1 then //保留到 小数点后第1，2。。。位
  begin//3
  sh:=midstr(sh,1, );
  Result:=strtofloat(sq+'.'+sh);
  exit;
  end//3
  else  //保留到 小数点后第0位
  begin//4
  Result:=strtofloat(sq);
  exit;
  end;//4
  end;
  end;//2
end;