property的使用【Delphi版】

一.基本声明

 TOnUserInfoShow = procedure(userName:string;userAge:Integer)of object;//定义事件模型中的回调函数原型



  TUserInfo = class

    private

      FName:string;

      FAge:Integer;

      FOnUserInfoShow: TOnUserInfoShow;



      procedure FSetAge(theAge:Integer);

    public

      property Name:string read FName;//只读属性（私有变量）

      property Age:Integer read FAge write FSetAge;//读写属性（私有变量，私有方法）



      property OnUserInfoShow:TOnUserInfoShow  read FOnUserInfoShow write FOnUserInfoShow;//事件模型回调函数



      constructor Create;

  end;

     Ps: 对于FAge,FSetAge等变量和方法，只需在property后声明好，直接Ctrl+shift+c，即可自动生成。

二.只读属性

     构造函数

constructor TUserInfo.Create;

begin

   Self.FName:='Terry';

   Self.FAge:=20;

end;

    读取只读属性

begin

  Self.Memo1.Lines.Add('读取只读属性姓名：'+Self.theUserInfo.Name);

end;

    运行

   

 

三.读写属性

    构造函数

constructor TUserInfo.Create;

begin

   Self.FName:='Terry';

   Self.FAge:=20;

end;

    修改读写属性，并读取新值

begin

   Self.Memo1.Lines.Add('修改前的读写属性年龄为：'+inttostr(Self.theUserInfo.Age));

   Self.theUserInfo.Age:=30;

   Self.Memo1.Lines.Add('修改后的读写属性年龄为：'+inttostr(Self.theUserInfo.Age));

end;

    运行

  

四.事件回调函数

    主窗体成员函数

procedure TFrmMain.UserInfoShow(name: string; age: Integer);

begin

   Self.Memo1.Lines.Add('用户姓名为：'+Self.theUserInfo.Name);

   Self.Memo1.Lines.Add('用户年龄为：'+inttostr(Self.theUserInfo.Age));

end;

   主窗体创建时，将函数指针赋值给“事件回调函数”

procedure TFrmMain.FormCreate(Sender: TObject);

begin

   Self.Memo1.Color:=clBlack;

   Self.Memo1.Font.Color:=clGreen;

   theUserInfo:=TUserInfo.Create;

   Self.theUserInfo.OnUserInfoShow:=Self.UserInfoShow;

end;

  调用事件回调函数

begin

   Self.theUserInfo.OnUserInfoShow(Self.theUserInfo.Name,Self.theUserInfo.Age);

end;

  运行