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