TP3/shell/tests/fixtures/t109_localset.pas

program ls;
procedure P;
var S:set of char;
begin
 S := [' '..'}'];
 if 'a' in S then writeln('yes') else writeln('no')
end;
begin P end.