2012年4月16日
检查浮点数精确位数
摘要： 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)+', 请重新输入... 阅读全文
posted @ 2012-04-16 15:55 edisonfeng 阅读(493) 评论(0) 推荐(0)