7 lines
132 B
ObjectPascal
7 lines
132 B
ObjectPascal
|
type
|
||
|
|
Animal = class end;
|
||
|
|
Dog = class(Animal) end;
|
||
|
|
Cat = class(Animal) end;
|
||
|
|
Lab = class(Dog) end;
|
||
|
|
Collie = class(Dog) end;
|