array[boolean] of Integer? ( 积分: 20 )

E

everhappy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-08

• #1

procedure TCustomComm.SetRTSState(State: boolean);
const
RTS: array[boolean] of Integer = (CLRRTS, SETRTS);
begin
EscapeComm(RTS[State]);
end;

array[boolean]等价于array[0..1]吗？

 

E

everhappy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-08

• #2

procedure TCustomComm.SetRTSState(State: boolean);
const
RTS: array[boolean] of Integer = (CLRRTS, SETRTS);
begin
EscapeComm(RTS[State]);
end;

array[boolean]等价于array[0..1]吗？

 

张

张鸿林

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-08

• #3

这样声明是合法的：
type
TMyEnum=(meFirst,meSecond,meThird);
var
MyEnums: array[TMyEnum] of Integer ;
procedure TForm1.Button1Click(Sender: TObject);
begin
MyEnums[meFirst]:=0;
MyEnums[meSecond]:=2;
MyEnums[meThird]:=4;
end;

 

S

SeekMyself

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-08

• #4

正确

 

C

cyrys

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-08

• #5

学习...
我试了一下,直接调用RTS[0]或RTS[1]都不行

 

J

Jonson_sunshine

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-09

• #6

同意 张鸿林。
Boolean在System单元中等于是一个内定类型： type Boolean = (True, False)
所以
array[boolean]并不等价于array[0..1]，但可以通过 RTS[True] 或 RTS[False]访问。
True和False 并不等于1和0。

 

E

everhappy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-09

• #7

谢谢各位了