9 lines
122 B
ObjectPascal
9 lines
122 B
ObjectPascal
begin
|
|
var a := ArrGen(
|
|
1,
|
|
i ->
|
|
begin
|
|
Result{@var Result: Object;@} := new object;
|
|
end
|
|
);
|
|
end. |