pascalabcnet/TestSuite/CompilationSamples/MaxT1.pas
Mikhalkovich Stanislav f8653deb7f fix #2055
2019-07-27 17:33:55 +03:00

9 lines
214 B
ObjectPascal

type
t1 = class
o: integer;
end;
begin
var sq: sequence of t1 := Arr(new t1);
var i: integer := sq.Max(a->a.o); //Ошибка : Нельзя преобразовать тип real к integer
end.