15 lines
236 B
ObjectPascal
15 lines
236 B
ObjectPascal
type
|
|
c1 = class
|
|
seq1: sequence of integer;
|
|
constructor create;
|
|
begin
|
|
var a := Arr(3.1, 3.7);
|
|
seq1 := a.Select(b -> Round(b));
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
var obj := new c1;
|
|
assert(obj.seq1.ToArray[1] = 4);
|
|
end.
|