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

Перебрать все элементы множества   Найти похожие ветки 

← →
Basilio ©   (2004-03-30 15:40) [0]

жаль, нелья так:

for each Elem in MySet do Func(Elem);

Я пока вижу только такую альтернативу:

type
TElem=(...)
TSet = set of TElem;
var
MySet: TSet;
Elem: TElem;
begin
MySet=...;
for Elem:=Low(TElem) to High(TElem) do
if Elem in MySet then Func(Elem)
end;

Что-нибудь более красивое можно придумать?

---

← →
Юрий Зотов ©   (2004-03-30 15:45) [1]

Куда ж еще-то красивее?

---

← →
Digitman ©   (2004-03-30 16:04) [2]

> жаль, нелья так:
>
> for each Elem in MySet do Func(Elem);


с чего ты взял, что конструкция "each Elem" якобы будет отфильтровывать только присутствующие эл-ты мн-ва ? или это выдуманный тобой "красивый" псевдокод ?

---

← →
sVic   (2004-03-30 16:11) [3]

> for each Elem in MySet do Func(Elem);
Сдается мне это код VBA (или VB) :)

---

← →
Digitman ©   (2004-03-30 16:15) [4]

угу.. Васиком попахивает
только ведь в Васике конструкция for each..in совершенно не относится к работе с множествами - это работа со списками-коллекциями объектов

---

← →
Defunct ©   (2004-03-30 19:46) [5]

Отказаться от множеств и сделать дин. массив.

---

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

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



Память: 0.46 MB
Время: 0.024 c