Question

在delphi中制作一个基础的消息框程序

窗体上一个文本框，一个按钮
当在文本框上输入0-100后点击按钮则弹出消息框显示1
101-200则显示2
小于0大于200显示错误

Answer 1

。。。

我帮你写一个吧。

procedure TForm1.Button1Click(Sender: TObject);
begin
if (StrToInt(Edit1.Text) >= 0) and (StrToInt(Edit1.Text) <= 100) then
Application.MessageBox('你输入的是大于0小于100的数！','成功',0)
else
if (StrToInt(Edit1.Text) >= 101) and (StrToInt(Edit1.Text) <= 200) then
Application.MessageBox('你输入的是大于101小于200的数！','成功',0)
else
Application.MessageBox('错误','错误',0);
end;

end.