blob: fede1db11ddd88b21eecbff0726169c0b594e0b0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
{$mode delphi}
type
tc1 = class
l : longint;
property p : longint read l;
end;
tc2 = class(tc1)
{ in Delphi mode }
{ parameters can have the same name as properties }
procedure p1(p : longint);
end;
procedure tc2.p1(p : longint);
begin
end;
begin
end.
|
