本人新学,下述语句中关键语句不懂,请帮忙注释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;
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;
mrYes, mrNo, mrOk, mrCancel, mrAbort, mrRetry, mrIgnore, mrAll, mrNoToAll,
mrYesToAll, 0);这是messagedlg的返回值集,集合的对应的数值是从0开始的,所以mrYes=0,mrNo=1if t<>2 then //不等于2是指什么
不等于2指的是不等于mrOK,也即用户点的不是提示框的OK按钮if t=6 then //等于6是指什么
等于6指的是等于mrIgnore,也即指用户点击了“忽略”按钮flag:=false; //这句起什么作用,为什么要使用flag
flag只是一个标记作用,就这么少的代码看不出是什么作用