Текущий архив: 2009.06.28;
Скачать: CL | DM;
Вниз
Добавить элемент в 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]Удалено модератором
Страницы: 1 вся ветка
Текущий архив: 2009.06.28;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.01 c
