Текущий архив: 2004.09.19;
Скачать: CL | DM;

Вниз

снова про приведение типов)   Найти похожие ветки 

← →
MetalFan ©   (2004-09-03 18:48) [0]

type
 TElement = (e1, e2, e3, e4);
 TElements = set of TElement;
var
 Elemets: TElements;
 Bt: Byte;
begin
 Elemets := [e1,e4];
 Bt := Byte(Elements); <= работает
 Elements := TElements(Bt); <= нет
end;
почему? у кого какие соображения?

---

← →
Palladin ©   (2004-09-03 18:56) [1]

потому что SizeOf(TElements)=32

---

← →
MetalFan ©   (2004-09-03 19:25) [2]

SizeOf(TElements) = 1 !!!

---

← →
Cobalt ©   (2004-09-03 19:40) [3]

var
Elements: TElements;
И всё работает!

---

← →
MetalFan ©   (2004-09-06 12:11) [4]

гм... у меня тоже заработало! че-то я напутал(

---

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

Текущий архив: 2004.09.19;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.052 c