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