13 lines
301 B
ObjectPascal
13 lines
301 B
ObjectPascal
|
type
|
|||
|
|
// Не важно запись или класс, но обязательно пользовательский тип
|
|||
|
|
t1 = class end;
|
|||
|
|
|
|||
|
|
procedure p1<TList>(l: TList); where TList: IList<t1>;
|
|||
|
|
begin
|
|||
|
|
assert(l.Count = 0);
|
|||
|
|
assert(not l.Contains(new t1));
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
p1(new t1[0]);
|
|||
|
|
end.
|