Вопрос по set of

← →
Романов Р.В. (2003-02-14 21:06) [0]

Имеем
TMySet = (ms1, ms2, ms3, ms7, ms15);
TMySets = set of TMySet;

TMySetArr: array [TMySet] of Integer;

var
s: TMySets;
A: TMySetArr;

s := [ms1, ms7, ms15];

Можно как-то в цикле вывести элементы массива A которые указаны в переменной s (без использования if и if"ом я и сам умею)
Например что ставить вместо ?? в таком цикле

for k := ?? to ?? do
ShowMessage(IntToStr(A[k]));

← →
vuk (2003-02-14 22:46) [1]

>Например что ставить вместо ?? в таком цикле

var k : TMySet;

for k := Low(TMySet) to High(TMySet) do ...

← →
Романов Р.В. (2003-02-14 23:03) [2]

Оно так и сделано.
for k := Low(TMySet) to High(TMySet) do
if k in s then
ShowMessage(IntToStr(A[k]));

А как сделать что бы цикл был не по всем элементам TMySet, а только по тем которые в переменной s.
Подозреваю что никак.

← →
Anatoly Podgoretsky (2003-02-14 23:07) [3]

А зачем?

← →
Романов Р.В. (2003-02-14 23:12) [4]

Цикл по 5 элементам или по трем. Есть разница?

← →
Anatoly Podgoretsky (2003-02-14 23:30) [5]

Да несколько наносекунд

Вопрос по set of Найти похожие ветки