Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.009 c
2-1242216248
Андрей (начинающий)
2009-05-13 16:04
2009.06.28
Динамическое добавление полей в TTable


15-1240518603
Юрий
2009-04-24 00:30
2009.06.28
С днем рождения ! 24 апреля 2009 пятница


15-1240243040
@!!ex
2009-04-20 19:57
2009.06.28
Как добавить функции в php?


15-1240247395
Интересующийся
2009-04-20 21:09
2009.06.28
Как браузер узнаёт что нужно пройти через proxy?


2-1242068353
Wind
2009-05-11 22:59
2009.06.28
Сравнить содержимое двух потоков TMemoryStream