| 编程中国 | 业界新闻 | 技术文章 | 视频教程 | 下载频道 | 程序源码 | 个人空间 | 编程论坛
全能ASP/PHP/ASP.NET主机,支持月付专业 MSSQL 数据库空间,支持月付专业 MySQL 数据库空间,支持月付买域名,送MP3、MP4
高端软件开发 = 年薪十万不是梦赛孚耐:软件保护加密专家身份认证令牌USB KEY买空间,免费送域名(厦门中资源)
共有 480 人关注过本帖
标题:[求助][讨论]MessageDlg为何总关不了?
收藏  订阅  推荐  打印 
zhangzujin
Rank: 3Rank: 3
等级:中级会员
帖子:276
积分:2910
注册:2005-5-9
[求助][讨论]MessageDlg为何总关不了?

我要作Shannon编码,想判断StringGrid中元素都不空,可惜
MessageDlg总是关不了,大家给个建议啊,谢谢!
我的代码是:

flag:=0;

while (flag=0) do
begin
flag:=1;
for j:=1 to cnt+1 do
begin
flag:=1;
for i:=1 to 2 do
if shannonfrm.StringGrid1.cells[i,j]='' then
begin
flag:=0;
break;
end;
end;
if (flag=1) then
break
else
messagedlg('请输入完全!',mtinformation,[mbOK],0);
end;


[此贴子已经被作者于2006-12-22 19:01:50编辑过]

附件: 只有本站会员才能下载或查看附件,请您 登录注册
搜索更多相关主题的帖子: MessageDlg  
2006-12-22 18:56
zhangzujin
Rank: 3Rank: 3
等级:中级会员
帖子:276
积分:2910
注册:2005-5-9

就是那个Information总是关不了,大家帮我看看代码。


太极之道 qq:283421560 E-mail:zhangzujin360732@163.com
2006-12-22 18:58
xu2000
Rank: 12Rank: 12Rank: 12
等级:版主
威望:51
帖子:3849
积分:39681
注册:2006-4-8

flag:=0;

while (flag=0) do
begin
for j:=1 to cnt+1 do
begin
for i:=1 to 2 do
if shannonfrm.StringGrid1.cells[i,j]='' then
begin
flag:=1;
break;
end;
end;
if (flag=1) then
break
else
messagedlg('请输入完全!',mtinformation,[mbOK],0);
end;
试一下,我没做试验不知对不对。


我会拿出我全部的钱财,以保你衣食无忧。我会献出我所有的智慧,以助你一帆风顺。我会想到所有的笑语,以令你展眉开颜。我会挤出最长的时间,以使你终生幸福。        [本人原创的结婚宣言]
2006-12-22 22:38
zhangzujin
Rank: 3Rank: 3
等级:中级会员
帖子:276
积分:2910
注册:2005-5-9


谢谢,帮我看看。
真的不知道怎么搞。以前搞的时候也碰到这种问题。
附件: 只有本站会员才能下载或查看附件,请您 登录注册

太极之道 qq:283421560 E-mail:zhangzujin360732@163.com
2006-12-22 23:31
nongen
Rank: 12Rank: 12Rank: 12
来自:网络
等级:贵宾
威望:17
帖子:320
积分:3312
注册:2006-11-25

while (flag=0) do
begin
flag:=1;
for j:=1 to cnt+1 do
begin
for i:=1 to 2 do
if shannonfrm.StringGrid1.cells[i,j]='' then
begin
flag:=0;
break;
end;
end;
if (flag=1) then
break
else
begin
if messagedlg('请输入完全!',mtInformation,[mbOK],0)=mrOK then
begin
shannonfrm.StringGrid1.SetFocus;
break;//加这个是为了退出循环的。因为你在 (flag=1) 的时候才会退出,而弹出对话框时是flag=0,而
//在flag=0时循环是不退出的,这样的时候,就会一直弹出对话框。

end;
end;
end;

昨天不是我的,明天不是你的,今天却是我们的。
http://www.nongen.cn
2006-12-23 08:48
zhangzujin
Rank: 3Rank: 3
等级:中级会员
帖子:276
积分:2910
注册:2005-5-9

谢谢!

太极之道 qq:283421560 E-mail:zhangzujin360732@163.com
2006-12-23 14:25
关于我们 | 广告合作 | 编程中国 | 清除Cookies | Archiver | WAP | TOP

编程中国 版权所有,并保留所有权利。鲁ICP备08000592号
Powered by Discuz, Processed in 0.065913 second(s), 9 queries.
Copyright©2004-2008, BCCN.NET, All Rights Reserved