假设我设置了
var my:charbegin
my:= edit1.text;
case my of
'* ': edit1.text:='chenghao';
'0'..'9':edit1.text:='shuzi';
end;
end;my不能为字符串,如何解决?
var my:charbegin
my:= edit1.text;
case my of
'* ': edit1.text:='chenghao';
'0'..'9':edit1.text:='shuzi';
end;
end;my不能为字符串,如何解决?
只能是char的话,就限制edit的长度为1,去第一个字符就是了咯.
my:=edit1.text[1]