5,388
社区成员
发帖
与我相关
我的任务
分享为什么if Length(trim(dbEdit1.Text))<>8 不好用呀?
if Length(trim(dbEdit1.Text))<>8 then
smd1.Caption := '系统提示';
smd1.Text:= '输入的"学号"格式必须是8位数字,请重新输入!';
smd1.ShowModal;
无论输入是不是8位数据,都有提示信息,为什么不进入判断呀!!
把条件改成>,<都是一样的.学号字段是字符型.请指点一下!!
...全文
请发表友善的回复…
发表回复
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;
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;
BEGIN
smd1.Caption := '系统提示';
smd1.Text:= '输入的"学号"格式必须是8位数字,请重新输入!';
smd1.ShowModal;
END;
