|
@@ -1,4 +1,4 @@
|
|
-{%RESULT=219 }
|
|
|
|
|
|
+{%RESULT=220 }
|
|
{ %OPT= -CR }
|
|
{ %OPT= -CR }
|
|
program test_object;
|
|
program test_object;
|
|
|
|
|
|
@@ -9,34 +9,34 @@ type
|
|
constructor init;
|
|
constructor init;
|
|
procedure mymethod; virtual;
|
|
procedure mymethod; virtual;
|
|
end;
|
|
end;
|
|
-
|
|
|
|
-
|
|
|
|
-
|
|
|
|
|
|
+
|
|
|
|
+
|
|
|
|
+
|
|
pobj2 = ^tobj2;
|
|
pobj2 = ^tobj2;
|
|
tobj2 = object
|
|
tobj2 = object
|
|
constructor init;
|
|
constructor init;
|
|
procedure mymethod; virtual;
|
|
procedure mymethod; virtual;
|
|
end;
|
|
end;
|
|
-
|
|
|
|
-
|
|
|
|
|
|
+
|
|
|
|
+
|
|
constructor tobj2.init;
|
|
constructor tobj2.init;
|
|
begin
|
|
begin
|
|
end;
|
|
end;
|
|
-
|
|
|
|
|
|
+
|
|
procedure tobj2.mymethod;
|
|
procedure tobj2.mymethod;
|
|
begin
|
|
begin
|
|
end;
|
|
end;
|
|
-
|
|
|
|
-
|
|
|
|
|
|
+
|
|
|
|
+
|
|
constructor tobj1.init;
|
|
constructor tobj1.init;
|
|
begin
|
|
begin
|
|
end;
|
|
end;
|
|
-
|
|
|
|
|
|
+
|
|
procedure tobj1.mymethod;
|
|
procedure tobj1.mymethod;
|
|
begin
|
|
begin
|
|
end;
|
|
end;
|
|
-
|
|
|
|
-
|
|
|
|
|
|
+
|
|
|
|
+
|
|
var
|
|
var
|
|
_obj1 : pobj1;
|
|
_obj1 : pobj1;
|
|
_obj2 : pobj2;
|
|
_obj2 : pobj2;
|
|
@@ -45,4 +45,4 @@ Begin
|
|
_obj2:=new(pobj2,init);
|
|
_obj2:=new(pobj2,init);
|
|
pobj1(_obj2)^.mymethod;
|
|
pobj1(_obj2)^.mymethod;
|
|
end.
|
|
end.
|
|
-
|
|
|
|
|
|
+
|