testcaseifformat.obs

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

unit testcaseifformat;interface type trecord=record bar1:integer;bar2:integer;end
;implementation uses sysutils;function foo1(const pi:integer):boolean;begin result
:=(pi mod 2)=0;end;function foo(bar:trecord):word;begin case bar.bar1 of 1:if not
foo1(bar.bar2)then result:=31 else result:=32;2:if not foo1(bar.bar2)then result:=
28 else result:=29;3:result:=7;4:result:=4;5:result:=9;6:result:=6;7:result:=11;8
:result:=8;9:result:=5;10:result:=10;11:result:=7;12:result:=12;else raise exception
.create('message');end;end;end.