littletest49.out

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

unit littletest49;

interface

implementation

function foo: integer;
begin
  Result := random(10);
end;

procedure bar;
label
  gtarget;
begin
  try
    if foo > 3 then
      goto gtarget;
    gtarget:
  finally
    foo;
  end;
end;

procedure fish;
label
  gtarget;
begin
  bar;
  try
    if foo > 3 then
      gotogtarget;
    gtarget:
  except
    bar;
  end;
end;

end.