13 lines
206 B
ObjectPascal
13 lines
206 B
ObjectPascal
|
unit u_classconst1;
|
||
|
|
type
|
||
|
|
cls = class
|
||
|
|
class function p: integer;
|
||
|
|
const c : array[1..5] of integer = (1,2,3,4,5);
|
||
|
|
begin
|
||
|
|
Result := c[2];
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
begin
|
||
|
|
assert(cls.p = 2);
|
||
|
|
end.
|