以下关键语句不懂

[foxlink0769]

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

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;

[simonhehe]

你看下messagedlg函数的用法与返回值

[feiba7288]

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只是一个标记作用，就这么少的代码看不出是什么作用

[hsfzxjy]

看得出flag是标记文件是否修改的

[foxlink0769]

非常感谢2位的回复，帮助良多