如何在Delphi中定义一个空的枚举类型,枚举类型变量中的元素的添加和删除操作怎么做?
解决方案 »
- 帮我外甥女取个好名字
- 大家帮忙好急................
- 热烈祝贺二个6:dephi2006和‘神州6号’发布成功!66大顺!大吉大祥!
- 如何取很多表的数据并且可以在一张报表里面统计出来!!急!
- 用户在edit1中输入:c:\aa\bb\cc\efg(由用户输入任意的路径,可能存在,可能不存在)
- 数据转换问题
- 关于Delphi7是否支持XP界面?
- 关于DCOM服务端断开客户端的连接,请帮忙!!!
- 500分寻找实现oicq中的BP机、手机短讯功能?
- 如何跨网段连接数据源?
- ★请xiangwangz(<*敝屣荣华 浮云生死 此身何惧*>)兄继续写完好吗?谢谢
- 第一次用delphi设计和网络有关的程序请大家帮忙!!
arrInt: array of Integer;
begin
SetLength(arrInt, 2);
arrInt[0] := 100;
arrInt[1] := 200;
abc = (a1, b2, c3);这样的形式,不能定义空枚举!
Include和Exclude操作符是针对集合类型使用的,而不是枚举类型
那如何对枚举类型中的元素进行添加删除操作呢?
TMyEnum = (meOne, meTwo, meThree, meFour, meFive);
TMySet = set of TMyEnum;
var
MySet: TMySet;
begin
MySet := [];
if not (meOne in MySet) then
Include(MySet, meOne);// 相当于 MySet := MySet + [meOne]; 这时MySet = [meOne]
if meOne in MySet then
Exclude(MySet, meOne);// MySet := MySet - [meOne]; 现在MySet = []
end;
不是Girl,mm干的活
至少到现在我还没有遇到过编程还行的Girl,Woman...