22 lines
278 B
ObjectPascal
22 lines
278 B
ObjectPascal
|
type
|
|||
|
|
T1<T> = class
|
|||
|
|
event E1: procedure;
|
|||
|
|
|
|||
|
|
procedure TryE1();
|
|||
|
|
begin
|
|||
|
|
if E1 <> nil then E1();
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
var i: integer;
|
|||
|
|
procedure p;
|
|||
|
|
begin
|
|||
|
|
i := 1;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
var Obj := new T1<integer>();
|
|||
|
|
Obj.E1 += p;
|
|||
|
|
Obj.TryE1();
|
|||
|
|
assert(i = 1);
|
|||
|
|
end.
|