Data update

2024-07-13 15:19:22 -07:00 · 2024-07-13 15:19:22 -07:00 · 5c1bb7bfa9
commit 5c1bb7bfa9
parent 29a5eea0d4
2011 changed files with 35081 additions and 3229 deletions
--- a/Task/Inheritance-Multiple/PascalABC.NET/inheritance-multiple.pas
+++ b/Task/Inheritance-Multiple/PascalABC.NET/inheritance-multiple.pas
@ -0,0 +1,19 @@
+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.