假设我设置了
  var  my:charbegin
  my:=   edit1.text;
case my of
'* ': edit1.text:='chenghao';
'0'..'9':edit1.text:='shuzi';
end;
end;my不能为字符串,如何解决?