testtryexceptraise.out

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

unit testtryexceptraise;

interface

implementation

uses SysUtils;

procedure bar;
begin
end;

procedure signalerror;
begin
end;

procedure foo;
begin
  try
    bar;
  except
    on eabort do
      raise;
    else
      signalerror;
    raise;
  end;
end;

procedure fish;
begin
  try
    bar;
  except
    on eabort do
      raise;
    else
      signalerror;
    bar;
    foo;
    bar;
    raise;
  end;
end;

end.