Inheritance/Single: Difference between revisions

Content added Content deleted

Inline

@@ Line 168: / Line 168: @@
   // ...
 }</lang>
+=={{header|Delphi}}==
+<lang Delphi>
+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);
+</lang>
 =={{header|E}}==