littletest23.out

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

unit LittleTest23;

{ AFS August 2003
 This unit compiles but is not semantically meaningfull
 it is test cases for the code formatting utility }

interface

implementation

var
  Bar: boolean;

function Foo(const Chr: byte): boolean;
begin
  Result := (Bar) and (Chr in [$B2..$EC]);
end;

end.