41 lines
751 B
ObjectPascal
41 lines
751 B
ObjectPascal
procedure Test{@procedure Test(a: integer:=1);@}(a: integer := 1);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure Test{@procedure Test(a: string:='abc');@}(a: string := 'abc');
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure Test{@procedure Test(a: Object:=nil);@}(a: object := nil);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure Test{@procedure Test(a: real:=sin(2));@}(a: real := sin(2));
|
|
begin
|
|
|
|
end;
|
|
|
|
function Test2{@function Test2(a: integer:=1): integer;@}(a: integer := 1): integer;
|
|
begin
|
|
|
|
end;
|
|
|
|
function Test2{@function Test2(a: string:='abc'): string;@}(a: string := 'abc'): string;
|
|
begin
|
|
|
|
end;
|
|
|
|
function Test2{@function Test2(a: Object:=nil): integer;@}(a: object := nil): integer;
|
|
begin
|
|
|
|
end;
|
|
|
|
function Test2{@function Test2(a: real:=sin(2)): integer;@}(a: real := sin(2)): integer;
|
|
begin
|
|
|
|
end;
|
|
begin
|
|
end. |