var i:Extended; begin If TryStrToFloat(Edit1.Text,i) then //如果是Float类型 begin ... end; end;
VarType(const V: Variant): Integer; 看看帮助吧:)
用一个异常处理就可以搞定: function IsFloat(S:String):Boolean; begin Result:=True; try StrToFloat(S); except Result:=False; end; end; 判断 : if IsFloat(Edit1.Text) then //是Float型
datetime: 最好用maskedit,可以进行相应的设置,
具体参看delphi帮助。
float: StrToFloat.
StrToFloat(Edit1.Text);//StrToDateTime(Edit1.Text);StrToInt(Edit1.Text);
except
ShowMessage('Error');
Edit1.SetFocus;
Exit;
end;
i:Extended;
begin
If TryStrToFloat(Edit1.Text,i) then //如果是Float类型
begin
...
end;
end;
看看帮助吧:)
function IsFloat(S:String):Boolean;
begin
Result:=True;
try
StrToFloat(S);
except
Result:=False;
end;
end;
判断 :
if IsFloat(Edit1.Text) then
//是Float型