Modified判断Tedit TMemo类型的文件是否修改过

//Modified判断Tedit TMemo类型的文件是否修改过 
procedureTForm1.Button1Click(Sender: TObject);
begin
  if edit1.Modifiedthen ShowMessage('edit1 Modified') else ShowMessage('edit1 没有修改');
  if Memo1.Modifiedthen ShowMessage('Memo1 Modified') else ShowMessage('Memo1 没有修改');
end;




posted @ 2012-06-02 10:13  XE2011  阅读(182)  评论(0编辑  收藏  举报