Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.27;
Скачать: 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 вся ветка

Текущий архив: 2003.02.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
7-87722
Масим
2002-12-23 20:46
2003.02.27
как включить спейкер программно?


1-87485
serg111
2003-02-14 23:18
2003.02.27
getcolor


14-87623
vajo
2003-02-10 10:20
2003.02.27
Oracle 8, SQL Server 2000


14-87704
Журналист
2003-02-09 11:34
2003.02.27
Опрос 2


1-87492
Sinplecy
2003-02-15 00:08
2003.02.27
цвет TMainMenu