Inheritance/Multiple: Difference between revisions
PascalABC.NET
m (→{{header|Wren}}: Changed to Wren S/H) |
(PascalABC.NET) |
||
Line 1,275:
=={{header|Pascal}}==
See [[Inheritance/Multiple#Delphi | Delphi]]
=={{header|PascalABC.NET}}==
In PascalABC.NET you may inherit from only one class, but you can inherit from multiple interfaces.
<syntaxhighlight lang="delphi">
type
IMy1 = interface
procedure My1;
end;
IMy2 = interface
procedure My2;
end;
MyClass = class(IMy1,IMy2)
public
procedure My1 := Writeln('My1');
procedure My2 := Writeln('My2');
end;
MyClassD = class(MyClass,IMy1,IMy2)
end;
begin
var my := new MyClassD;
my.My1; my.My2;
end.
</syntaxhighlight>
=={{header|Perl}}==
| |||