20 lines
223 B
ObjectPascal
20 lines
223 B
ObjectPascal
unit interface_function1;
|
|
|
|
interface
|
|
|
|
procedure {@}p1(a: byte);
|
|
procedure {!}p1(a: byte; b: real);
|
|
|
|
implementation
|
|
|
|
procedure {!}p1(a: byte);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure {!}p1(a: byte; b: real);
|
|
begin
|
|
{!}p1(2);
|
|
end;
|
|
|
|
end. |