Delphi中类的变量属性
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'
声明：本网站引用、摘录或转载内容仅供网站访问者交流或参考，不代表本站立场，如存在版权或非法内容，请联系站长删除，联系邮箱：site.kefu@qq.com。