testparams.out

格式化源码的最新板

unit testparams;

interface

procedure arrayproc1(foo: array of const);
procedure arrayproc2(var foo: array of const);
procedure fred2(var foo);
procedure fred3(var foo; const bar);
procedure fred4(var foo, bar);
procedure fred5(const foo);

implementation

procedure arrayproc1(foo: array of const);
begin
end;

procedure arrayproc2(var foo: array of const);
begin
end;

procedure fred2(var foo);
begin
end;

procedure fred3(var foo; const bar);
begin
end;

procedure fred4(var foo, bar);
begin
end;

procedure fred5(const foo);
begin
end;

end.