procedure TForm1.Button1Click(Sender: TObject);
var
number:integer; //定义变量number
begin
number:=strtoint(edit1.Text); // 吧 edit1的内容赋值给number 转换字符串位整形
case number of //使用case语句 判断number
1,2,3:showmessage ('123'); // edit1输入内容1,2,3 则执行后面语句
5,6,7:showmessage ('5,6,7') //edit1输入内容5,6,7 则执行后面语句
end; //要多写一个 end;我也不知道为啥 ,总之不写就会出错
end;
end.