blob: 2c56f7105ab43e60dae9a1c8f365ea6823f71455 (
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
|
{$mode delphi}
unit tb0483u;
interface
type
tmyclass1 = class
private
procedure x(var l : longint);message 1234;
public
procedure defaulthandler(var msg);override;
end;
const
testresult : longint = 0;
implementation
procedure tmyclass1.defaulthandler(var msg);
begin
writeln('error; being in tmyclass1.defaulthandler');
halt(1);
end;
procedure tmyclass1.x(var l : longint);
begin
testresult:=1;
end;
end.
|
