[zhirnov.ilya.lvovich]

Коллеги, есть код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

type   TMyList = (mlOne = 1, mlFive = 5); var   iTmp: integer;   ...   iTmp := 2;   var bFind := False;   for var ml := Low(TMyList) to High(TMyList) - 1 do   begin     bFind := ord(ml) = iTmp;     if bFind then       Break;   end;

вот вопрос какого ляда bFind имеет значение true?

следующая конструкция так же ошибок не даёт

Код:

1	ShowMessage(IntToStr(integer(TMyList(2))));

вопрос: как проверить что integer есть в списке TMyList?

[lmikle]

В таком виде ничего сделать нельзя, т.к. для подобных типов RTTI не генерируется, а pred и succ работают неправильно (они воспринимают данный тип не как enum, а как integer).

Зато есть workaround с минимальными добавлениями. Фактически, мы создаем рядом с типом константный массив и используем его для подобной проверки вместо самого типа:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

type   TMyList = (mlOne = 1, mlFive = 5);   const   TMyListValues : Array [1..2] Of TMyList = (mlOne, mlFive);   function BoolToStr(value : Boolean) : String; begin   if Value then Result := 'true' else Result := 'false'; end;   function isDefined(value : Integer) : Boolean; var   I : Integer; begin   for I := Low(TMyListValues) to High(TMyListValues) do     begin       Result := value = Ord(TMyListValues[i]);       if Result then Break;     end; end;   procedure TForm1.Button1Click(Sender: TObject); var   iTmp1, iTmp2: integer; begin   iTmp1 := 2;   iTmp2 := 1;     ShowMessage('iTmp1 = ' + BoolToStr(isDefined(iTmp1)) + ', iTmp2 = ' + BoolToStr(isDefined(iTmp2))); end;

В результате работы получаем следующее сообщение:

Код:

1	iTmp1 = false, iTmp2 = true

[xchgeaxeax]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

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;

[zhirnov.ilya.lvovich]

Ребят, спасибо большое за ответ. Что-то из этого применю.