17 lines
400 B
ObjectPascal
17 lines
400 B
ObjectPascal
|
type
|
|||
|
|
t1 = class//не работает только в классе
|
|||
|
|
|
|||
|
|
const c1 = 5;
|
|||
|
|
|
|||
|
|
procedure p1;
|
|||
|
|
begin
|
|||
|
|
var arr1 := ArrGen(1, i -> c1);//В данной версии компилятора не поддерживается замыкание данного типа символов
|
|||
|
|
assert(arr1[0] = 5);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
var t := new t1;
|
|||
|
|
t.p1;
|
|||
|
|
end.
|