P pine_ant Unregistered / Unconfirmed GUEST, unregistred user! 2001-09-11 #2 function CheckNumValide(Numstring:string):Boolean; begin Result:=True; try StrToFloat(Numstring); except on EConvertError do Result:=False; end; end;
function CheckNumValide(Numstring:string):Boolean; begin Result:=True; try StrToFloat(Numstring); except on EConvertError do Result:=False; end; end;
D deon Unregistered / Unconfirmed GUEST, unregistred user! 2001-09-11 #3 一个一个Char地判断它的ASCII码是否有在数字以外的，如果有就不是数字。 是数字的ASCII码：45 .46 . 48 - 57 明白了吗，要不要写段代码给你？
鸟 鸟鹤 Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-30 #6 pine_ant兄的回答应该说是最好的，我补充一点，我碰到这个问题在调试的时候看到报错信息， 影响程序的正常运行，以为在正式运行的时候也这样，那就达不到排错的目的了嘛， 其实在正式运行时是不会出错终止的，pine_ant兄没有说明这一点让我走了不少弯路呀， 5555555
pine_ant兄的回答应该说是最好的，我补充一点，我碰到这个问题在调试的时候看到报错信息， 影响程序的正常运行，以为在正式运行的时候也这样，那就达不到排错的目的了嘛， 其实在正式运行时是不会出错终止的，pine_ant兄没有说明这一点让我走了不少弯路呀， 5555555
