15 lines
359 B
ObjectPascal
15 lines
359 B
ObjectPascal
type
|
|
c = class
|
|
static procedure pr1(param1: integer:= 0);
|
|
static function f(param1: integer := 1): integer;
|
|
end;
|
|
|
|
static procedure c.pr1(param1: integer); begin end;
|
|
static function c.f(param1: integer): integer;
|
|
begin
|
|
|
|
end;
|
|
begin
|
|
c.pr1{@static procedure c.pr1(param1: integer:=0);@};
|
|
c.f{@static function c.f(param1: integer:=1): integer;@}();
|
|
end. |