Browse Source

+ test for published class with abstract methods

Jonas Maebe 20 năm trước cách đây
mục cha
commit
0b79e441ab
2 tập tin đã thay đổi với 19 bổ sung0 xóa
  1. 4 0
      tests/test/tabstrcl.pp
  2. 15 0
      tests/test/uabstrcl.pp

+ 4 - 0
tests/test/tabstrcl.pp

@@ -0,0 +1,4 @@
+uses uabstrcl;
+
+begin
+end.

+ 15 - 0
tests/test/uabstrcl.pp

@@ -0,0 +1,15 @@
+unit uabstrcl;    
+
+{$m+}
+{$mode delphi}
+
+interface
+
+type
+  tc = class
+    constructor create; virtual; abstract;
+  end;
+
+implementation
+
+end.