littletest42.out

格式化源码的最新板

unit littletest42;

interface

implementation

uses Dialogs;

procedure foo(pi: integer);
label
  10, 20, bar, 42;
begin
  if pi > 12 then
    goto 10;
  ShowMessage('foo');
  goto bar;
  10:
    ShowMessage('10');
  bar:
  20: ;
end;

end.