delphi判断一个数在XX内...?

来源：百度知道 编辑：UC知道 时间：2024/05/12 16:14:23
一个Edit1 Button1
如何判断edit1输入的数字是否在 1-10 里面
如果在就提示"你输入的数字在1-10里面"

var
a : float;
begin
try
a := StrtoFloat(Edit1.Text);
if ( a >= 1) and (a <= 10 ) then begin
ShowMessage('在1 - 10里面');
end else begin
Exit;
end;
Except
ShowMessage('输入的不是合法的数字!');
end;
end;