function check(s:string):boolean;//返回值为true,该字符串s为一数值,否则非数值 var i:integer; num:integer; begin result:=true; num:=0; for i:=1 to length(s) do begin if not (s[i] in ['0'..'9','.']) then result:=false; if s[i]='.' then num:=num+1; end; if num>1 then result:=false;//有两个以上'.' end;
StrToFloat(String)
except
...
end;
begin
for i:=1 to length(字符串) do
begin
if 字符串[i] in ['0'..'9'] then
showmessage('有数字');
end;
end;
异常机制的except后面是不是接出现异常的情况啊????
谢谢谢谢
'$FF'
'0xFF'
'1.8E8'
等派出在数字之外,实际它们也是合法的数字当然还有最常用的小数点的问题,0出现位置的问题等等...
var i:integer;
num:integer;
begin
result:=true;
num:=0;
for i:=1 to length(s) do
begin
if not (s[i] in ['0'..'9','.']) then
result:=false;
if s[i]='.' then num:=num+1;
end;
if num>1 then result:=false;//有两个以上'.'
end;