• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号

property的使用【Delphi版】

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

一.基本声明

 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;

  运行

 

 


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Matlab绘图发布时间:2022-07-18
下一篇:
如何使用MATLAB对任意三维数据绘制三维曲面发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap