if (length(id)<>15 and length(id)<>18) then
showmessage('请输入正确的格式。') ;
exit ;
showmessage('请输入正确的格式。') ;
exit ;
解决方案 »
- 在不同image中显示图片
- 这样的交叉报表如何实现?在线等..........
- 〓〓〓跪求:Dev QuantumGrid4.5下拉框列如何屏蔽鼠标中键?〓〓〓
- 请教:为什么ado里不能执行带2个自动编号的查询
- 分不是问题,大家来探讨,给点思路或是相关资料
- 请教,在线急等!!!
- 请教!winsock连接服务器后使用recv时出现死机
- 三层结构中,在一个程序中要用到三个存储过程,每次程序运行是要把这三个过程的结果导入到三个表中,供程序使用,程序结束是时把表晴空!
- richedit选中的一段文字,怎么拖动到edit中?
- 谁知道delphi6的安装(打包)程序怎么用
- 用 desktop如何建立oracle别名,。
- delphi 里的for语句?
begin
showmessage('请输入正确的格式。') ;
exit ;
end;
begin
showmessage('请输入正确的格式。') ;
exit ;
end;
begin
showmessage('请输入正确的格式。') ;
exit ;
end;不好意思,這次好了,呵呵
if (length(id) <>15 and length(id) <>18) then
begin
MessageDlg('请输入正确的格式。',mtError,[mbok],0);
exit ;
end;
我喜欢用MessageDlg,呵呵
if (length(id) <>15) and (length(id) <>18) then
begin
MessageDlg('请输入正确的格式。',mtError,[mbok],0);
exit ;
end;
- -!!
id:=inputbox('格式要求15-18','請輸入','');
也不錯
begin
MessageDlg('请输入正确的格式。',mtError,[mbok],0);
exit ;
end;