核心代码 function IsNUM(Vaule:String):boolean; //delphi 判断字符串是否为纯数字组合 var i:integer; begin Vaule:=trim(Vaule); //去空格知 for i:=1 to length(Vaule) do //准备循环 begin if ( Vaule[i] in ['0'..'9']) then /

Delphi 2023年07月11日  154