请问关于switch/case是怎么使用的？？？

Question

请问关于switch/case是怎么使用的？？？
我会用 case i of 
         1
         2
        ...但 i 不能为字符串，我记得switch是可以的，但记不清怎么用的，哪位知道请告诉我一下，先谢谢了；））

Answer 1

那是BCB 中的用法， Delphi没有

Answer 2

我以前看到过一个程序，实现了case可以加字符串，找找

Answer 3

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

Answer 4

还有没有方法可以case字符串的？