Показать сообщение отдельно
  #3  
Старый 13.05.2023, 00:49
xchgeaxeax xchgeaxeax вне форума
Прохожий
 
Регистрация: 11.05.2023
Сообщения: 15
Версия Delphi: D7, Laz v2.2.6
Репутация: 10
По умолчанию

А лучше вместо массива использовать set of TMyList = [mlOne, mlFive], если значения не превосходят 255. Хотя диапазон и не большой, но и перечисления со значениями больше чем 255 встречаются редко. Но если значения будут больше этого, тогда массив.
Код:
type TMyList = (mlOne = 1, mlFive = 5);

const mlSet: set of TMyList = [mlOne, mlFive];

var iTmp: Integer;

begin
  for iTmp := 0 to 9 do
    if TMyList(iTmp) in mlSet
      then WriteLn('True')
      else WriteLn('False');
  ReadLn;
end;
Ответить с цитированием