小小疑惑，关于case.

[huanghope]

大侠：
为何：
case copy(edit1.Text,4,1) of
'1':label1.Caption:='dd';
'2':label1.Caption:='pp';
'3':label1.Caption:='dddd';
'4':label1.Caption:='pppp';
end;
无法编译通过，错误提示是：copy(edit1.Text,4,1)，类型不符，可是case中的表达式不是可以为字符吗？
谢谢！

[solokey]

用变量代替copy呢？

[flyinwuhan]

大哥，Copy返回的是字符串，不是字符。
即使copy一个字符还是字符串，而不是字符。

[flyinwuhan]

可以这样：
var
c : Char;

c := edit1.Text[4];
case c of
.
end;