blob: a5d990ea63782584467a91dbae15a5fbf409755c (
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
|
{ %opt=-gw}
{ %interactive }
{$mode objfpc}
{
1) check that all fields/procedures are shown in the correct visibility section
when doing "ptype TC"
2) check that "ptype TOBJECT" shows TOBJECT's methods even if the system
unit is not compiled with debuginfo
}
type
tc = class
private
f: longint;
procedure priv(a: longint);
protected
d: byte;
procedure prot; virtual;
public
c: longint;
procedure pub;
end;
procedure tc.priv(a: longint);
begin
end;
procedure tc.prot;
begin
end;
procedure tc.pub;
begin
end;
procedure myproc(a,b,c: longint);
begin
end;
begin
end.
|
