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;
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步