13 lines
244 B
Text
13 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;
|