以上关键语句不懂
以下关键语句不懂
本人新学,下述语句中关键语句不懂,请帮忙注释
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是标记文件是否修改的
本人新学,下述语句中关键语句不懂,请帮忙注释
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是标记文件是否修改的