Delphi面向对象入门：TStudent类设计(肖勇原创)

学习目的：
1、通过手工编写类，认识Delphi类的结构。
2、认识类的属性。赋值“stu.Name:=edit1.Text;”就会自动调用setName()方法，访问“stu.Name”就会自动调用getName()方法。
3、属性(property)的设计是为了让开发者直接通"."过访问成员，而又可以调用业务逻辑，深刻地体现了OO封装的内涵。

案例说明：
1.生成student类，年龄小于18,则返回18。输入姓名后，加“《》”后返回。
2.设置年龄和姓名的方法是通过“.”运算符，而不是手工调用get/set方法。



附件：下载地址

调用代码
调用代码
procedure TForm1.btnNormalClick(Sender: TObject);
var stu:TStudent;
begin
  //演示说明：为学生设置大于或小于18岁的年龄和设置非空姓名和空姓名。
  stu:=TStudent.Create;
  try
     stu.Age:=10;
     stu.Name:='张三';
     showmessage('学生姓名:'+stu.Name+'学生年龄:'+inttostr(stu.age));
  finally
    stu.Free;
  end;

end;

school类代码
school类代码
unit school;

interface

 Type TStudent=Class
   private
    //变量名stuName/stuAge可以任何指定，与property后的名称没有关系，但一般以能够直接反映
    //两者关系为佳
    _Name:string;
    _Age:integer;
    function getAge: Integer;
    function getName: string;
    procedure setAge(const Value: Integer);
    procedure setName(const Value: string);
   public
     //书写好属性后按Ctrl+C将自动生成代码
     property  Name:string read getName write setName;
     property  Age:Integer read getAge write setAge;
 end;

var
    Student:TStudent;
implementation

{ TStudent }

function TStudent.getAge: Integer;
begin
    result:=_Age;
end;

function TStudent.getName: string;
begin
   result:=_Name;
end;

procedure TStudent.setAge(const Value: Integer);
begin
   if Value<18 then
      _Age:=18
   else
      _Age:=Value;
end;

procedure TStudent.setName(const Value: string);
begin
   if Value='' then
      _Name:='新学生'
   else
      _Name:='《'+Value+'》';
end;

end.