Перебрать все элементы множества

← →
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) :)

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

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

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