摘要:
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)+', 请重新输入... 阅读全文