blob: 2cc95fd1e399d6d60324837bc6359e95fd76fb14 (
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
{ %version=1.1 }
{$ifdef fpc}{$mode objfpc}{$endif}
type
pobj = ^tobj;
tobj = object
public
constructor init;
destructor done; virtual;
procedure proc1 (a: integer);overload; virtual;
procedure proc1 (a: double);overload; virtual;
end;
pobj2 = ^tobj2;
tobj2 = object (tobj)
procedure proc1 (a: integer);overload;virtual;
end;
var
error : boolean;
constructor tobj.init;
begin
end;
destructor tobj.done;
begin
end;
procedure tobj.proc1 (a: integer);
begin
write('tobj.proc1(a:integer) called: ');
writeln (a);
end;
procedure tobj.proc1 (a: double);
begin
write('tobj.proc1(a:double) called: ');
writeln (a);
error:=false;
end;
procedure tobj2.proc1 (a: integer);
begin
write('tobj2.proc1(a:integer) called: ');
writeln (a);
end;
var
obj1: pobj;
obj2: pobj2;
begin
error:=true;
new (obj1, init);
new (obj2, init);
obj2^.proc1 (444.5555);
if error then
halt(1);
end.
|
