1、打开Delphi7集成开发环境，在默认工程的Form1窗体放一个Button1按钮，一个Edit1编辑框。
2、在Unit1.pas源代码文件的interface部分定义一个类，代码如下： TM鲻戟缒男yClass = Class private FName:str足毂忍珩ing; FScore:string; procedure SetName(name:string); procedure SetScore(score:string); published property Name: string read FName write SetName; property Score: string read FScore write SetScore; end;定义了两个变量，两个方法，两个属性，读的时候，直接读字段，写的时候通过方法写入
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字段。
4、双击Button1进入事件方法，写如下代码：procedure TForm1.Button1Click(Sender: TObject);var myClass:TMyClass;begin myClass := TMyClass.Create; myClass.Name:='张三'; myClass.Score:=Edit1.Text; ShowMessage(myClass.Name+'成绩是'+myClass.Score)end;实例化myClass变量，并通过属性Name和Score写入值，最后再以对话框显示出来。
5、F9运行程序，在Edit1输入小于100的数字20会弹出对话框，显示' 张三的成绩是20'
6、F9运行程序，在Edit1输入大于100的数字200会弹出对话框，显示'成绩太大'
