| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Добавить элемент в Set [D7, XP]
webpauk © (2009-05-12 19:19:00)упрощенно проблема выглядит так:
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.
(2009-05-13 01:09:00) [1]Удалено модератором
(2009-05-13 00:32:00) [2]Удалено модератором
(2009-05-12 22:01:00) [3]Удалено модератором
(2009-05-12 21:41:00) [4]Удалено модератором
Медвежонок Пятачок (2009-05-12 21:02:00) [5]если var, то еще и include
webpauk (2009-05-12 19:46:00) [6]
> DVM © (12.05.09 19:36) [2]
>
упс... прошу прощения
все ок
webpauk (2009-05-12 19:45:00) [7]
> DVM © (12.05.09 19:36) [2]
>
сам пробовал или кто подсказал?
не пашет
DVM (2009-05-12 19:36:00) [8]
> подскажите как правильно внести элемент в Set.
fSet := fSet + [TmyElement(CheckBox1.Tag)];
webcrawler (2009-05-12 19:33:00) [9]Ты опиши саму задачу, чего хочешь достичь, может она проще решается...
| |
