blob: 06f6bd714726140c3cabe2310cd5167ac685efa7 (
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
|
{ Source provided for Free Pascal Bug Report 2414 }
{ Submitted by "Louis Jean-Richard" on 2003-03-10 }
{ e-mail: Ljean_richard@compuserve.com }
UNIT uw2414;
INTERFACE
TYPE
anObj =
OBJECT
PROCEDURE A( CONST s : string );
k : cardinal;
PRIVATE
PROCEDURE A( CONST s : string; n : word );
END
;
IMPLEMENTATION
PROCEDURE anObj.A( CONST s : string; n : word );
BEGIN
WriteLn(' ':n, s)
END
;
PROCEDURE anObj.A( CONST s : string );
BEGIN
A(s, k)
END
;
END
.
|