12 lines
150 B
ObjectPascal
12 lines
150 B
ObjectPascal
type
|
|
t1 = class end;
|
|
t2 = class end;
|
|
i1 = interface end;
|
|
|
|
begin
|
|
var a1: t1;
|
|
var a2: t2;
|
|
var a3: i1;
|
|
|
|
if a2 is t1(var o) then;
|
|
end. |