littletest49.obs

格式化源码的最新板

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 goto
gtarget;gtarget:except bar;end;end;end.