1、打开Delphi7集成开发环境，在默认工程的Form1窗体放一个Button1按钮，一个Edit1编辑框。
3、在属性上按CTRL+Shift+C会生成对应的方法，在SetName和SetScore分别写如下代码：procedure TMyClass.SetName(name: string);begin Fname :=name;end;procedure TMyClass.SetScore(score: string);begin if strtoint(score)>100 then Showmessage('成绩太大') else FScore:=score;end;当Edit1输入的值超过100认为是非法的，不进行写入FScore字段。
5、F9运行程序，在Edit1输入小于100的数字20会弹出对话框，显示' 张三的成绩是20'
