5,386
社区成员
发帖
与我相关
我的任务
分享请问关于switch/case是怎么使用的？？？
请问关于switch/case是怎么使用的？？？
我会用 case i of
1
2
...
但 i 不能为字符串，我记得switch是可以的，但记不清怎么用的，哪位知道请告诉我一下，先谢谢了；））
我会用 case i of
1
2
...
但 i 不能为字符串，我记得switch是可以的，但记不清怎么用的，哪位知道请告诉我一下，先谢谢了；））
...全文
请发表友善的回复…
发表回复
jianxin_js 2003-08-29
- 打赏
- 举报
还有没有方法可以case字符串的？
hawk_js 2003-08-27
- 打赏
- 举报
我也来看看
jianxin_js 2003-08-26
- 打赏
- 举报
？
sy_315 2003-08-21
- 打赏
- 举报
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
s:array [0..3] of char;
begin
i:=0;
s[0]:='a';
case s[i] of
'a' : showmessage('1');
'b' : showmessage('2');
end;
end;
end.
要变成字符串的去用pchar
var
i:integer;
s:array [0..3] of char;
begin
i:=0;
s[0]:='a';
case s[i] of
'a' : showmessage('1');
'b' : showmessage('2');
end;
end;
end.
要变成字符串的去用pchar
IORILI 2003-08-21
- 打赏
- 举报
我以前看到过一个程序，实现了case可以加字符串，找找
DWGZ 2003-08-21
- 打赏
- 举报
那是BCB 中的用法， Delphi没有
