31 lines
430 B
ObjectPascal
31 lines
430 B
ObjectPascal
|
unit procimplunit;
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
|
|||
|
|
procedure p0;
|
|||
|
|
|
|||
|
|
procedure p1(b: byte);
|
|||
|
|
function f1(i: integer): integer;
|
|||
|
|
function f2(i: integer): integer;
|
|||
|
|
|
|||
|
|
implementation
|
|||
|
|
|
|||
|
|
procedure p0 := exit;
|
|||
|
|
|
|||
|
|
procedure p1{@procedure procimplunit.p1(b: byte);@};
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
function f1{@function procimplunit.f1(i: integer): integer;@};
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
function f2{@function procimplunit.f2(i: integer): integer;@}(i: integer): integer;
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
|
|||
|
|
end.
|