Помогите разобраться с множеством

[albatros]

есть в delphi процедура include
если уже есть похожий элемент в множестве,то
при включении в множества он всеравно добавляется

есть ли функция или процедура для определения количества элементов в множестве

[Armorer]

есть в delphi процедура include
если уже есть похожий элемент в множестве,то
при включении в множества он всеравно добавляется

Не совсем понятно. Добавить в множество элемент можно так
a := a + [1];
если элемент уже есть в множестве то ничего не произойдёт.
Что значит похожий элемент?

Функции не знаю, но можно посчитать так, если это множество байтовых чисел:

count := 0;
for i := 0 to 255 do
if i in A then 
inc(Count);

[mihali4]

Сообщение от Armorer

Не совсем понятно. Добавить в множество элемент можно так
a := a + [1];
если элемент уже есть в множестве то ничего не произойдёт.[/CODE]

И опять-таки из штатного дельфийского хэлпа:

The expression Include(S,I) corresponds to S := S + [I] but the Include procedure generates more efficient code.