| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как можно вывести тип Множество на форму? [D7, WinXP]

Страницы:   < 1 2 >

towik ©   (2005-06-01 15:18:00) 

Например,
type
TMySet = set of (1..10);
var
a:TMySet;
begin
a:=[1,2];
И мне теперь надо вывести это множество в какой-нибудь компонент.
Что в Label, что в Edit, что в Memo тип String.
Как можно разобратся с типами? Помогите, новичку!

---

Digitman   (2005-06-01 15:30:00) [21]

например, так

type
TMySet = set of (1..10);

var
a:TMySet;
b: Byte;

begin
a:=[1,2];
b := PByte(@a);

for i := 1 to 10 do
 begin
   if (b and 1) = 1 then
     Memo.Lines.Add(IntToStr(i));
   b := b shr 1;
 end;

---

ferr   (2005-06-01 15:28:00) [22]

А... Для TMySet можно...

---

towik   (2005-06-01 15:26:00) [23]

Спасибо большое!

---

ferr   (2005-06-01 15:26:00) [24]

никак
или надо 1100000000

---

PVOzerski   (2005-06-01 15:22:00) [25]

Первое, что пришло в голову:
s := '';
for i := 1 to 10 do
 if i in a then
   s := s + inttostr(i) + ' ';
Edit1.Text := s;

---

Страницы:   < 1 2 >

Наверх