blob: cbeb4712319bf5f1834b5cd69fc0dbc396a3b749 (
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
|
{ Old file: tbs0074.pp }
{ shows MAJOR bugs when trying to compile valid code OK 0.99.1 (PM/CEC) }
type
tmyobject = object
constructor init;
procedure callit; virtual;
destructor done; virtual;
end;
constructor tmyobject.init;
Begin
end;
destructor tmyobject.done;
Begin
end;
procedure tmyobject.callit;
Begin
WriteLn('Hello...');
end;
var
obj: tmyobject;
Begin
obj.init;
obj.callit;
{ obj.done;}
end.
|