[South]

кое-что смог сделать со множествами, оказывается они все-таки есть, только вот работать с ними как-то не очень удобно

Код:

var
  c:Char;
  b:byte;
  MySet1: set of char;
  MySet2: set of byte;
begin
  MySet1:=['a','b','x','y'];
  MySet2:=[byte(1),byte(2),byte(3),byte(4),byte(5),byte(6),byte(7),byte(8),byte(9)];
  c:='a';
  if c in MySet1 then MsgBox('c in MySet1; c = '+c, mbCriticalError, mb_OK);
  b:=0;
  if b in MySet2 then MsgBox('b in MySet2; b = '+IntToStr(b), mbCriticalError, mb_OK);
end;