blob: 040af3e09c7715aea30d25dddeaaa941e5a3c0e7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
{$mode objfpc}{$H+}
uses
Classes, SysUtils
{ add your units here };
type
TNotifyEventExt = procedure(ASender: TObject; ANotifyType: integer) of
object;
TNotify = class
strict private
FOnNotify: TNotifyEventExt;
strict protected
procedure test;
public
constructor Create;
end;
constructor TNotify.Create;
begin
inherited Create;
FOnNotify := nil;
end;
procedure TNotify.test;
begin
FOnNotify(nil, 0); //project1.pas(30,13) Fatal: Syntax error, ";" expected but "(" found
end;
begin
end.
|
