Case..of 问题. ( 积分: 10 )

var
QQ:String;
begin

Case {这里的类型要怎么转换？}(Edit1.Text) of
'A': QQ:= 'a';
'B': QQ:= 'b';
end;

Edit2.Text:= QQ;
end;


var
QQ:String;
begin

Case StrToInt(Edit1.Text) of
1: QQ:= 'a';
2: QQ:= 'b';
end;

Edit2.Text:= QQ;
end;

怎么整形就可以，其他类型怎么搞都出错。

必须是有序数才行,就这点

var
QQ:String;
begin

Case ord(Edit1.Text) of
'A': QQ:= 'a';
'B': QQ:= 'b';
end;

在Pascal中的Case只能是序数
www.soware.cn

接受答案了.