1
{ Source provided for Free Pascal Bug Report 3038 }
2
{ Submitted by "Marco (Gory Bugs Department)" on 2004-04-03 }
7
procedure bla; virtual; abstract;
10
procedure bla; override;
12
dnextasso = class(dmyasso)
13
procedure bla; override;
15
ClassFamily= class of dasso;
17
procedure dmyasso.bla;
21
procedure dnextasso.bla;
25
const cmyclass : array[0..1] of classfamily =(dmyasso,dnextasso);
27
var vmyclass : array[0..1] of classfamily =(dmyasso,dnextasso);