首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

以上关键语句不懂

2013-02-24 
以下关键语句不懂本人新学,下述语句中关键语句不懂,请帮忙注释var t:integerflag:booleanbegin if not f

以下关键语句不懂
本人新学,下述语句中关键语句不懂,请帮忙注释

var t:integer;flag:boolean;
begin
 if not flag then
 t:=messagedlg('是否保存文件',mtconfirmation,mbyesnocancel,0);   //关键messagedlg为什么会是integer类型
 if t<>2 then  //不等于2是指什么
 begin
   if t=6 then //等于6是指什么
   button4click;
   memo1.clear;
   end;
 flag:=false;  //这句起什么作用,为什么要使用flag
end;
 
[解决办法]
ModalResults: array[TMsgDlgBtn] of Integer = (
    mrYes, mrNo, mrOk, mrCancel, mrAbort, mrRetry, mrIgnore, mrAll, mrNoToAll,
    mrYesToAll, 0);

这是messagedlg的返回值集,集合的对应的数值是从0开始的,所以mrYes=0,mrNo=1

if t<>2 then  //不等于2是指什么
不等于2指的是不等于mrOK,也即用户点的不是提示框的OK按钮

if t=6 then //等于6是指什么
等于6指的是等于mrIgnore,也即指用户点击了“忽略”按钮

flag:=false;  //这句起什么作用,为什么要使用flag
flag只是一个标记作用,就这么少的代码看不出是什么作用
[解决办法]
看得出flag是标记文件是否修改的

热点排行