blob: 981b661141099b61b3e02ada9133747661c5af7e (
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
|
{ Old file: tbs0307.pp }
{ "with object_type" doesn't work correctly! OK 0.99.13 (?) }
type
tobj = object
l: longint;
constructor init;
procedure setV(v: longint);
destructor done;
end;
constructor tobj.init;
begin
l := 0;
end;
procedure tobj.setV(v: longint);
begin
l := v;
end;
destructor tobj.done;
begin
end;
var t: tobj;
begin
t.init;
with t do
setV(5);
writeln(t.l, ' (should be 5!)');
if t.L<>5 then
Halt(1);
t.done;
end.
|
