9 lines
192 B
ObjectPascal
9 lines
192 B
ObjectPascal
|
begin
|
|||
|
|
var o1:object;
|
|||
|
|
var o2:object;
|
|||
|
|
|
|||
|
|
if o1 is object(var _o1) then
|
|||
|
|
if o2 is object(var _o2{@var _o2: Object;@}) then
|
|||
|
|
|
|||
|
|
if o1 is object(var _o1{@var _o1: Object;@}) then;
|
|||
|
|
end.
|