14 lines
162 B
ObjectPascal
14 lines
162 B
ObjectPascal
|
type A = class
|
|||
|
|
static function X := 1;
|
|||
|
|
static procedure p;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
static procedure A.p;
|
|||
|
|
begin
|
|||
|
|
var s := X;
|
|||
|
|
ArrGen(10,i->i);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
end.
|