blob: 1d67d351e578ea426d8be5afb2632169665b881c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{ This passes under Delphi and Borland pascal }
{ for objects, classes don't pass, cf. /tbf/tb0125 }
type
tobjsymbol = object
end;
tobjderivedsymbol = object(tobjsymbol)
end;
procedure testobject(var t: tobjsymbol);
begin
end;
var
myobject : tobjderivedsymbol;
begin
testobject(myobject);
end.
|
