부동 소수점 자릿수 확인

3205 단어 부동 소수점
  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;

좋은 웹페이지 즐겨찾기