littletest23.out

格式化源码的最新板

unit littletest23;

interface

implementation

var
  bar: boolean;

function foo(const chr: byte): boolean;
begin
  Result := (bar) and (chr in [$B2..$EC]);
end;

end.