10 lines
126 B
ObjectPascal
10 lines
126 B
ObjectPascal
|
procedure p1<T>(x: T);
|
|||
|
|
begin
|
|||
|
|
var o := x;
|
|||
|
|
var ot := o?.GetType;
|
|||
|
|
assert(ot = typeof(integer));
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
p1(2);
|
|||
|
|
end.
|