求助：各位大哥，这个 if else 语句怎么写啊？谢谢！

Question

请教：
     是这样的：
     edit1.text 的值 可能为 'a','b','c','d' , 或者别的
 如果   edit1.text 的值 
 为 'a'   则 j:=1;
 为 'b'   则 j:=2;
 为 'c'   则 j:=3; 
 为 'd'   则 j:=4;
 为 别的  则 j:=0;       procedure TForm1.Button1Click(Sender: TObject);
var
     j:integer;
begin
      if (edit1.Text='a') then
         begin
               j:=1;
         end;
      else  if            // 后面要怎么写啊？end;
谢谢！

Answer 1

这种情况最好不要用if else 嵌套. 可以用Case of  case Edit1.Text[1] of
    'a' : ShowMessage('Edit.text第一个字符是a');
    'b' : ShowMessage('Edit.text第一个字符是b');
    'c' : ShowMessage('Edit.text第一个字符是c');
    'd' : ShowMessage('Edit.text第一个字符是d');
    else ShowMessage('another');
  end;

Answer 2

case Edit1.Text[1] of
    'a' : j := 1;
    'b' : j := 2;
    'c' : j := 3;
    'd' : j := 4;
    else j := 0;
  end;

Answer 3

或者这样:  if Edit1.Text[1] in ['a','b','c','d'] then J := Byte(Edit1.Text[1])-96 else J := 0;