Question

delphi中怎么使得edit的数值跟一个数比较

我做一个年龄的，要使得edit里的数值大于18小于120的 请问怎么写代码

Answer 1

if (strtoint(edit.text)>18) and (strtoint(edit.text)<120) then
begin
///下一步
end
else
begin
///
edit.clear;
///mess'年龄不对'
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
if StrToFloat(form1.Edit1.Text)>120 then
showmessage('Edit1大于120')
else
showmessage('Edit1小于或者等于120')

end;