如何定义一个状态变量，包括三个状态：)(80分)

C

coolwindfly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-16

• #1

执行一次，则将该状态切换至下一个状态

 

Y

ywhbn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-16

• #2

i := (i + 1) mod 3
// 0,1,2 三个状态

 

I

ivy1982

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-16

• #3

i := (i + 1) mod 3
//帅呆啦

 

J

jangill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-16

• #4

楼上的这个办法不错啊.

 

I

icc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-17

• #5

凑个热闹

 

C

coolwindfly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-17

• #6

to ywhbn:非常感谢你的精彩定义。这个很不错，谢谢。我会为你加分地!不过，我想问一下，是否可以使用枚举型来定义。要能够接头，就是头尾相连。就像链表一样。

 

李

李奇

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-18

• #7

type
Number=(one,two,three);
...
var
aNumber:Number;
...
aNumber:=Number(Ord(Succ(aNumber)) mod 3);

 

C

coolwindfly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-18

• #8

多人接受答案了。