假设我设置了
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不能为字符串,如何解决?
解决方案 »
- ListBox.Items.Add问题请教
- 资源文件能正常读取,但是在保存时出现错误
- 我的图象是JPEG文件,是放在远程一个固定IP电脑下面的一个目录,我如何读取这个JPEG文件呢?
- 报表QREPORT的小问题.
- Delphi做了一个ActiveX控件,加载到IE后无法使用Ctrl+C
- 期末考试终于考完了,高兴啊(1)!!!为什么我只能给100分啊???
- 如何使用SQL使我能得到日期为今天的所有记录?
- 为什么啊,我最亲密的好友就这样离开了人世啊,苍天你没长眼睛啊!
- 那里可以下《delphi深度历险》的光盘
- 在 dxDBGrid 中怎样才能显示数据库中 IMAGE 字段的图片(JPEG)
- 如何改变TBUTTON的字体颜色?
- 请问在RAVE报表中一个page中打印多个数据表有什么好的办法嘛??
只能是char的话,就限制edit的长度为1,去第一个字符就是了咯.
my:=edit1.text[1]