Free Pascal. Низкоуровневое управление байтовыми множествами.

[BDA]

Вот так это предупреждение не выдается:

  function inSet(e: byte; bset: ByteSet): boolean;
  var
    b: ^byte;
  begin
    b := @bset;
    Inc(b, e div 8);
    Result := b^ shr (e mod 8) and 1 = 1;
  end;

(Кстати, во всех компиляторах обычно можно игнорировать предупреждения)

[Решетова Алена]

Спасибооооо))))

Теперь я понялаа)