pascalabcnet/TestSuite/CompilationSamples/MaxT1.pas

9 lines
214 B
ObjectPascal
Raw Permalink Normal View History

2019-07-27 17:33:55 +03:00
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.