12 lines
216 B
Text
12 lines
216 B
Text
type
|
|
Animal = class(TObject)
|
|
private
|
|
// private functions/variables
|
|
public
|
|
// public functions/variables
|
|
end;
|
|
|
|
Dog = class(Animal);
|
|
Cat = class(Animal);
|
|
Collie = class(Dog);
|
|
Lab = class(Dog);
|