Delphi类，属性，方法，事件构造函数实例

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils,
Unit1 in 'Unit1.pas';

//定义结构
type

TmyRecord = record
name:String;
age:Integer;
end;

//定义类
TmyClass=class(TObject)
Constructor Create(name:String;age:Integer;sex:String);
private
name:String;
age:Integer;
sex:String;
public
procedure Work;

end;
TmyEvent=procedure of object; //先定义一个特殊的类型，一个对象所属的过程类型；这是建立事件的前提
{Peoson类}
Person=class(TObject)

private
Fage:Integer;
FOnHundred:TmyEvent; //为刚刚定义的TmyEvent类指定一个变量： FOnHundred
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; //事件命名一般用on开始

end;
// Person类
constructor Person.Create();
begin
FOnHundred:= SetOnHundred1;{在对象建立时，我们先让事件调用SetOnHundred1方法}
end;

procedure Person.setAge(const value:Integer);
begin
if (value>0)and (value<200) then
Fage:=value;
if value=100 then
OnHundred; {当输入的年龄是100时，激活事件}
end;
procedure Person.SetOnHundred1;
begin
Writeln('OK');
end;
procedure Person.SetOnHundred2;
begin
Writeln('NG');
end;

//类实现
Constructor TmyClass.Create(name:String;age:Integer;sex:String);
begin
Self.name:=name;
Self.age:=age;
Self.sex:=sex;
end;

procedure TmyClass.Work;
begin
Writeln(Self.name+','+IntToStr(Self.age)+','+Self.sex);
end;

var
Rec:TmyRecord; //声明结构
Cls:TmyClass; //声明类
per:Person;
begin

//类的调用
Cls:=TmyClass.Create('李斯',18,'男');
Cls.Work();

//结构的调用
Rec.name:='zhangsan';
Rec.age:=18;
//使用事件

per:=Person.Create;
per.Age:=100;
per.FOnHundred:=per.SetOnHundred2;
per.Age:=100;
per.Free;

Writeln(cls.age);
Writeln(cls.name);
Writeln(cls.sex);

Writeln(Rec.name);
Writeln(Rec.age);

Readln;

end.