Форум: "Начинающим";
Текущий архив: 2006.03.26;
Скачать: [xml.tar.bz2];

Вниз

nap<>   Найти похожие ветки 

← →
nap<>   (2006-03-07 14:24) [0]

Помогите разобраться с
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 14:42) [1]

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


> What: TWayWhat;

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

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

---

← →
nap<>   (2006-03-07 14:50) [2]

Вот переделал разобрался
 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);

---

← →
nap<>   (2006-03-07 14:59) [3]

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

---

← →
nap<>   (2006-03-07 15:02) [4]

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

---

← →
nap<>   (2006-03-07 15:28) [5]

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

---

← →
nap<>   (2006-03-07 16:35) [6]

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

---

← →
Virgo_Style ©   (2006-03-07 17:39) [7]

заело

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.03.26;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.07 c