Delphi中类的变量属性

1、打开Delphi7集成开发环境，在默认工程的Form1窗体放一个Button1按钮，一个Edit1编辑框。

2、在Unit1.pas源代码文件的interface部分定义一个类，代码如下：

  TMyClass = Class

  private

    FName:string;   

    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会弹出对话框，显示'成绩太大'