Скачать: CL | DM;

Вопрос по 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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c