初探类的字段.属性.方法.事件

最新推荐文章于 2024-08-27 13:06:13 发布

seagull327

最新推荐文章于 2024-08-27 13:06:13 发布

阅读量813

点赞数

分类专栏： OOP 结构类类型

本文链接：https://blog.youkuaiyun.com/haiou327/article/details/8435568

版权

类类型同时被 3 个专栏收录

34 篇文章

订阅专栏

结构

27 篇文章

订阅专栏

OOP

24 篇文章

订阅专栏

本文介绍了面向对象编程中类的字段、属性、方法和事件的概念。通过实例`TmyClass`展示了如何定义和使用私有字段、公共方法以及事件。在`SetAge`方法中，当年龄设置为100时触发`OnHundred`事件。`Button1Click`和`Button2Click`事件处理程序分别演示了如何创建对象并设置不同的事件处理过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

  TmyEvent = procedure of object;
  TmyClass = class
  private
    Fage: Integer;
    FonHundred: TmyEvent;
    procedure SetAge(const Value: Integer);
  public
    procedure SetOnHundred1;
    procedure SetOnhundred2;
    constructor Create;
    property Age: Integer read Fage write SetAge;
    property OnHundred: TmyEvent read FonHundred write FonHundred;
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}

constructor TMyClass.Create;
begin
  FonHundred := SetOnHundred1;
end;

procedure TmyClass.SetAge(const value: Integer);
begin
  if (Value > 0) and (Value < 200) then
    Fage := Value;
  if Value = 100 then
    OnHundred;
end;

procedure TmyClass.SetOnhundred2;
begin
  ShowMessage('100啦！');
end;

procedure TmyClass.SetOnHundred1;
begin
  ShowMessage('刚好100啦');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  TmyCls: TmyClass;
begin
  TmyCls := TmyClass.Create;
  TmyCls.Age := 100;
  TmyCls.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  TmyCls: TmyClass;
begin
  TmyCls := TmyClass.Create;
  TmyCls.OnHundred := TmyCls.SetOnhundred2;
  TmyCls.Age := 100;
  TmyCls.Free;
end;

//事件类型就是一个指针，它指向一个过程