testtryexceptraise.obs

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

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.