pascalabcnet/TestSuite/generics69.pas
Ivan Bondarev bb8c9543cf #2886
2023-07-02 19:46:57 +02:00

11 lines
372 B
ObjectPascal

procedure p2<T>;
begin
var a := new T[1];
//Ошибка: Невозможно преобразовать выражение типа array of T к не реализуемому этим типом интерфейсу IReadOnlyCollection<T>
var c := a as System.Collections.Generic.IReadOnlyCollection<T>;
assert(c.Count = 1);
end;
begin
p2&<integer>;
end.