[求助][讨论]MessageDlg为何总关不了? - Delphi论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 Delphi论坛』 → [求助][讨论]MessageDlg为何总关不了?

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 954 人关注过本帖

标题：[求助][讨论]MessageDlg为何总关不了?

只看楼主加入收藏

zhangzujin

等　级：新手上路
帖　子：276
专家分：0
注　册：2005-5-9

楼主

问题点数：0 回复次数：5

[求助][讨论]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

等　级：新手上路
帖　子：276
专家分：0
注　册：2005-5-9

第 2 楼

得分:0

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

太极之道 qq:283421560 E-mail:zhangzujin360732@

2006-12-22 18:58

xu2000

等　级：贵宾
威　望：51
帖　子：3890
专家分：56
注　册：2006-4-8

第 3 楼

得分:0

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

等　级：新手上路
帖　子：276
专家分：0
注　册：2005-5-9

第 4 楼

得分:0

3mv9dmev.rar (204.61 KB) [求助][讨论]MessageDlg为何总关不了?

谢谢，帮我看看。
真的不知道怎么搞。以前搞的时候也碰到这种问题。

太极之道 qq:283421560 E-mail:zhangzujin360732@

2006-12-22 23:31

nongen

来　自：网络
等　级：贵宾
威　望：17
帖　子：322
专家分：0
注　册：2006-11-25

第 5 楼

得分:0

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.

2006-12-23 08:48

zhangzujin

等　级：新手上路
帖　子：276
专家分：0
注　册：2005-5-9

第 6 楼

得分:0

谢谢!

太极之道 qq:283421560 E-mail:zhangzujin360732@

2006-12-23 14:25

快速回复：[求助][讨论]MessageDlg为何总关不了?