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

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

nap<> [D7]

nap&lt;&gt; ©   (2006-03-07 14:24:00) 

Помогите разобраться с
TSomeOwner = (User_, Group_);

TSomeWhat = record
  case  TWayOwner of
  user_:  (OwnerUser: TUser);
  group_: (OwnerGroup: TSimpleGroup);
end;

TWay = record
   What: TWayWhat;
   Number: integer;
   Read: boolean;
   Write: boolean;
   Necessary: boolean;
 end;

как мне потом для what опредилить user_ это или group_?

---

Virgo_Style   (2006-03-07 17:39:00) [1]

заело

---

nap&lt;&gt;   (2006-03-07 16:35:00) [2]

Класс писать с переопределяемым полем?
Мутор без него надо!!!

---

nap&lt;&gt;   (2006-03-07 15:28:00) [3]

Класс писать с переопределяемым полем?
Мутор без него надо!!!

---

nap&lt;&gt;   (2006-03-07 15:02:00) [4]

Класс писать с переопределяемым полем?
Мутор без него надо!!!

---

nap&lt;&gt;   (2006-03-07 14:59:00) [5]

Класс писать с переопределяемым полем?
Мутор без него надо!!!

---

nap&lt;&gt;   (2006-03-07 14:50:00) [6]

Вот переделал разобрался
 TWayOwner = (User_, Group_);

 TWay = record
   Number: integer;
   Read: boolean;
   Write: boolean;
   Necessary: boolean;
   case  What : TWayOwner of
     user_:  (OwnerU: TUser);
     group_: (OwnerG: TSimpleGroup);
   end;

Вот а как теперь сделать вот эту конструкцию
     user_:  (OwnerU: TUser);
     group_: (OwnerG: TSimpleGroup);
в таком виде
     user_:  (Owner: TUser);
     group_: (Owner: TSimpleGroup);

---

Virgo_Style   (2006-03-07 14:42:00) [7]

> как мне потом для what


> What: TWayWhat;

Не вижу описания для TWayWhat.

Видимо, это замаскированный TSomeWhat%-)
afaik, в таких случаях вводят флажок, по которому и проверяют, что содержится в переменной типа TSomeWhat - user_ или group_.

---

Наверх