부동 소수점 자릿수 확인

  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;