求助：各位大哥，这个 if else 语句怎么写啊？谢谢！
请教：
是这样的：
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;


谢谢！

[解决办法]
这种情况最好不要用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;