if edit4.maxLength<8 then
begin
messagedlg('请输入帐号的最后至少8位数',mtWarning,[mbok],0);
end
else
begin
showmessage('ok') ;
end;
begin
messagedlg('请输入帐号的最后至少8位数',mtWarning,[mbok],0);
end
else
begin
showmessage('ok') ;
end;
解决方案 »
- 机会,稍纵即逝。
- 请问:delphi中怎样知道一个文件夹是共享的
- delphi板块faq种种怪现象
- 还是关于Tstringgrid和Tfilestream的问题[悬赏100分](上次的问题没有实质性的回答)
- 数列问题,60,120,210...后面是的数字是多少?
- 求救:奇怪Indy问题
- 使用dbRadioGroup控件,出现错误"list index out of bounds(-1)",如何改正?
- webBrowser 怎么控制让前进,后退像IE浏览器那样自动失效.
- DBGIRD中的内容显示到Edit中呢,该用什么方法.
- http://www.babysoft.h58.net/ 我是初学者,希望与Delphi高手们交个朋友
- 怎么用ADO对SQL数据进行添加?
- [新手请教]函数返回的是对象时,返回的是值还是地址。
这个函数不能通过?
showmessage(length(Edit1.text));
begin
messagedlg('请输入帐号的最后至少8位数',mtWarning,[mbok],0);
end
else
begin
showmessage('ok') ;
end;