Question

delphi IF语句问题

如果edit1.text的内容
小于等于30大于等于1
EDIT2.TEXT：=正常；
怎么写？

Answer 1

if (strtoint(edit1.Text) >=1) and (strtoint(edit1.Text )<=30) then
begin
edit2.Text :='正常';
end
else
begin
edit2.Text :='喊大盯仿简'郑和 ;
end;