社区
Delphi
帖子详情
为什么if Length(trim(dbEdit1.Text))<>8 不好用呀?
tflb
2003-08-22 09:42:04
if Length(trim(dbEdit1.Text))<>8 then
smd1.Caption := '系统提示';
smd1.Text:= '输入的"学号"格式必须是8位数字,请重新输入!';
smd1.ShowModal;
无论输入是不是8位数据,都有提示信息,为什么不进入判断呀!!
把条件改成>,<都是一样的.学号字段是字符型.请指点一下!!
...全文
34
6
打赏
收藏
为什么if Length(trim(dbEdit1.Text))<>8 不好用呀?
if Length(trim(dbEdit1.Text))8 then smd1.Caption := '系统提示'; smd1.Text:= '输入的"学号"格式必须是8位数字,请重新输入!'; smd1.ShowModal; 无论输入是不是8位数据,都有提示信息,为什么不进入判断呀!! 把条件改成>,<都是一样的.学号字段是字符型.请指点一下!!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
IORILI
2003-08-22
打赏
举报
回复
要一步一步来,不要着急
belllab
2003-08-22
打赏
举报
回复
呵呵,基本语法错误!
cnhgj
2003-08-22
打赏
举报
回复
这个问题是检分问题,可惜来晚了!
xuejinlong
2003-08-22
打赏
举报
回复
呵呵
tonylk
2003-08-22
打赏
举报
回复
看来你还是基础没学好,写成泥那样的话相当于:
if Length(trim(dbEdit1.Text))<>8 then begin
smd1.Caption := '系统提示';
end;
smd1.Text:= '输入的"学号"格式必须是8位数字,请重新输入!';
smd1.ShowModal;
lvloj
2003-08-22
打赏
举报
回复
if Length(trim(dbEdit1.Text))<>8 then
BEGIN
smd1.Caption := '系统提示';
smd1.Text:= '输入的"学号"格式必须是8位数字,请重新输入!';
smd1.ShowModal;
END;
限制并方便用户输入 (转)
限制并方便用户输入 (转)[@more@]限制并方便用户输入(2002/12/03 三金 版权所有) 防止用户误输入是软件开发的一项必不可少的工作,除才之外,还要为用户的使用提供最大方便。当然,我们可以利用或开发新的组件...
转帖:怎样实现olecontainer控制Word预览时可以翻页?
怎样实现olecontainer控制Word预览时可以翻页? 怎样实现olecontainer控制Word预览时可以翻页? 实现word预览: oleContainer1.Loadfromfile(FFileName); 实现word编辑: try oleContainer1.Loadfromfile(FFile
Text
限制用户输入
(一)TEdit、T
DBEdit
、TComboBox、TDBComboBox的输入分三种类型限制: (1)任意输入 (2)整数输入 (3)浮点数输入 限制的项目如下: (1)整数输入只能输入数字0-9、+、- (2)浮点输入只能输入数字0-9、+、-、. (3)+和-只能有其一,并且只能出现在最前面 (4).只能有一个 (5)限制小数位数 函数如下: procedur...
delphi操作word
delphi操作word
一、Delphi程序启动Word
采用CreateOleObjects的方法来启动Word,调用VBA代码,具体实现过程为:
首先使用GetActiveOleObject('Word.Application')判断当前内存中是否存在Word程序,如果存在,
则直接连接,如果没有Word程序,则使用CreateOleObject('Word.Application')启动Word二、Delphi程序新建Word文稿
格式:WordDo
当Dephi遇到Word
在Dephi 5中提供了一组Servers组件,实现了与Office的无缝结合,但有关这一方面的资料却很少,最近笔者接触了一个用户案例,要求最终将数据库中的结果总结成一份Word文档,Word文档中对于标题、正文的字体、字号,文档的纸张大小都有一定的要求,而且还要求以表格的形式体现一部分数据库中的数据。 笔者通过查找VBA的说明,再对照Dephi的VCL,终于实现了全部功能,现将有关的内容总
Delphi
5,392
社区成员
262,731
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章