if Length(Edit1.Text) > ADOTable1.FieldByName('Oper_Name').DataSize then
ShowMessage('试试看');ADOTable1.Locate('Oper_Name', Edit1.Text, [loCaseInsensitive]);
ShowMessage('试试看');ADOTable1.Locate('Oper_Name', Edit1.Text, [loCaseInsensitive]);
解决方案 »
- 关于线程引发Access violation at address的问题
- 如何让DELPHI数据库程序支持阿拉伯语?
- idhttp1.get http/1.1 400 Bad Request在线等
- Com+客户须要安装组件吗? 里面有问题超详细描述。
- 导航条的主窗体怎么做?在线等,高手进...
- 今天去面试了,知道上海众恒信息的请进!!
- 通过 delphi 编程将bmp格式文件(背景为纯色背景)转成gif或png图片(纯色背景透明)。
- 菜单设计的一个基本问题
- DELPHI 试题
- 真的没高手吗?中国人的无奈,大富翁又上不去。仅仅是一个简单的问题
- 我要插入一条数据这种方法能行吗??
- 关于PASCAL中的TEXT类型文件在DELPHI中的实现
还是不能编译!
if Length(Edit1.Text) <= ADOTable1.FieldByName('Oper_Name').DataSize then
ADOTable1.Locate('Oper_Name', Edit1.Text, [loCaseInsensitive]);当搜索字符的宽度大于表字段的宽度就会触发异常