关于case 语句的问题！为何判断条件不能定义成string,我想定义一个pas文件来存我的常用命令(30分)

小

小白2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-03

• #1

var
s:string;
begin
case s of
'01':showmessage(s);
'02':showmessage(s);
'03':showmessage(s);
else
showmessage('not select!');
end;
end;

我想实现的的功能是，
在comlib.pas中定义我编程常用的命令
const
Command_User1 '00001';
Command_User '00002';

 

P

Pearl.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-03

• #2

做不到。
pascal的case语句条件分支只能是整型常量， 不能是表达式或字符串。
不过你完全可以用整数来定义你的操作， 完全没必要用字符串。

 

幸

幸福鸟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-03

• #3

case strtoint(s) of
可以吗

 

小

小白2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-03

• #4

接受答案了.