testreg.out

来自「格式化源码的最新板」· OUT 代码 · 共 27 行

unit testreg;

interface

procedure Register;
procedure fred;
procedure hoopyfroog;

implementation

procedure Register;
var
  Data: boolean;
begin
  Data := False;
end;

procedure fred;
begin
end;

procedure hoopyfroog;
begin
end;

end.