blob: c28e3d6d2d927452cc76e1ff2be1bb5888f11389 (
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
37
38
39
40
|
{ %opt=-Sew -vw }
{ Source provided for Free Pascal Bug Report 3364 }
{ Submitted by "Sergey Kosarevsky" on 2004-10-22 }
{ e-mail: netsurfer@au.ru }
Type pMyObject1 = ^tMyObject1;
tMyObject1 = Object
Constructor Init;
Destructor Done;
Procedure MyProc;Virtual;Abstract;
End;
Type pMyObject2 = ^tMyObject2;
tMyObject2 = Object(tMyObject1)
Constructor Init;
Procedure MyProc;Virtual;
End;
Constructor tMyObject1.Init;
Begin
End;
Destructor tMyObject1.Done;
Begin
End;
Constructor tMyObject2.Init;
Begin
End;
Procedure tMyObject2.MyProc;
Begin
End;
Var T:pMyObject1;
Begin
T:=New(pMyObject2, Init);
Dispose(T,Done);
End.
|
