Добавить элемент в Set

← →
webpauk © (2009-05-12 19:19) [0]

упрощенно проблема выглядит так:

type TmyElement = (tm1, tm2); TmyElementSet = set of TmyElement; procedure TForm1.FormCreate(Sender: Tobject); begin CheckBox1.Tag:=Integer(tm1); CheckBox2.Tag:=Integer(tm2); end; procedure TForm1.DoSome; var fSet: TmyElementSet; begin if CheckBox1.Checked then fSet:=fSet+TmyElement(CheckBox1.Tag); if CheckBox2.Checked then fSet:=fSet+TmyElement(CheckBox2.Tag); end;

разумеется, здесь ошибка: fSet:=fSet+TmyElement(CheckBox1.Tag);
подскажите как правильно внести элемент в Set.

← →
webcrawler (2009-05-12 19:33) [1]

Ты опиши саму задачу, чего хочешь достичь, может она проще решается...

← →
DVM © (2009-05-12 19:36) [2]

> подскажите как правильно внести элемент в Set.

fSet := fSet + [TmyElement(CheckBox1.Tag)];

← →
webpauk © (2009-05-12 19:45) [3]

> DVM © (12.05.09 19:36) [2]
>

сам пробовал или кто подсказал?
не пашет

← →
webpauk © (2009-05-12 19:46) [4]

> DVM © (12.05.09 19:36) [2]
>

упс... прошу прощения
все ок

← →
Медвежонок Пятачок © (2009-05-12 21:02) [5]

если var, то еще и include

← →
имя (2009-05-12 21:41) [6]

Удалено модератором

← →
имя (2009-05-12 22:01) [7]

Удалено модератором

← →
имя (2009-05-13 00:32) [8]

Удалено модератором

← →
имя (2009-05-13 01:09) [9]

Удалено модератором

Добавить элемент в Set Найти похожие ветки