17 lines
485 B
ObjectPascal
17 lines
485 B
ObjectPascal
|
procedure p1<T>;
|
|||
|
|
begin
|
|||
|
|
// Обязательно использовать T - шаблонный параметр p1
|
|||
|
|
// С пользовательским типом вместо KeyValuePair не воспроизводится
|
|||
|
|
var a: KeyValuePair<T,word>;
|
|||
|
|
// Обязательно сравнить на равенство
|
|||
|
|
assert(a = a);
|
|||
|
|
assert(not (a <> a));
|
|||
|
|
var b: KeyValuePair<integer,word>;
|
|||
|
|
assert(b = b);
|
|||
|
|
assert(not (b <> b));
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
p1&<byte>;
|
|||
|
|
end.
|