检查浮点数精确位数

页面导航:首页 > 软件编程 > Delphi > 检查浮点数精确位数

检查浮点数精确位数

来源: 作者: 时间:2016-01-18 15:41 【

function NumericPrecCheck(compnentCaption,text:string;numericPrec:integer;maxLimit:Integer):string; var E: extended; begin Result:=#39;#39;; try text:=Trim(text); E:=StrToFloat(text);...
 
  function NumericPrecCheck(compnentCaption,text:string;numericPrec:integer;maxLimit:Integer):string;
  var
     E: extended;
  begin
    Result:='';
    try
      text:=Trim(text);
      E:=StrToFloat(text);
      if E>maxInt then
      begin
        Result:=compnentCaption+'超过范围'+inttostr(maxLimit)+', 请重新输入!';
      end;
      if ( pos( '.', text ) <> 0 ) and ( length( text ) - pos( '.', text ) >numericPrec )  then
      begin
          Result:=compnentCaption+'只能精确到小数点后' + IntToStr( numericPrec ) + '位,请重新输入!';
      end
      else
      begin
          Result:='格式正确';
      end;
    except
       Result:=compnentCaption+'为数字,请重新输入!';
    end;
  end;
 


摘自 edisonfeng
Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<