有关集合的两个问题(120分)

P

powerlich

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-06

• #1

问题一
delphi 5有什么函数可以得到一个集合的元素列表

问题二
下面一段声明是不可修改的
TGroupType = Set of (gtRemote,gtClient,gtLocal,gtChecked,gtEnable);
...
GroupType:TGroupType;
我想给GroupType赋值为[1，2]该如何赋，或者将集合[1，2]转为TGroupType
类型的方法（除了自己写case的方法）；

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-06

• #2

1.好像只能根据 集合的基类型用 in 进行逐个判断了

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-06

• #3

2.它的基类型是(gtRemote,gtClient,gtLocal,gtChecked,gtEnable)这个枚举类型，
而(1.2）都不是，所以麻烦不小，你干嘛不自己定义TGroupType，把1，2放进去？

 

J

JohnsonGuo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-06

• #4

1 这是Pascal的一个遗憾

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-06

• #5

同wjiachun, 你只能:
If gtRemote in GroupType Then ShowMessage('gtRemote');
If gtClient In GroupType Then ShowMessage('gtClient');
........

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-06

• #6

歪门邪道要吗?
var
tmp: Cardinal;
begin
Tmp := 1 or 2;
Move(Tmp, GroupType, SizeOf(TGroupType));
end;

 

龙

龙丹

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-07

• #7

问题1:
函数 GetEnumName 可以从RTTI获得枚举类型变量的名字，...，说起来太复杂，你去参考
Classes单元 TWriter.WriteProperty方法中的WriteSet函数吧，如果还搞不明白咱们再讨论。

问题2:
这个问题实际上是很容易解决的，关键是必须明白:枚举类型实质上就是从0开始的子界类
型。于是：
......
GroupType:TGroupType;
NumGroupType:set of 0..4 absolute GroupType
//现在读写NumGroupType就是读写GroupType
......
NumGroupType:=[1,2]
//这等价于 GroupType=[gtClient,gtLocal]

因为你没有为集合类型命名，所以无法利用类型转换。

 

I

iie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-07

• #8

用不着这么麻烦吧，其实ord(gtCliremote)=0呵

 

P

powerlich

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-13

• #9

多人接受答案了。