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 @   XE2011  阅读(188)  评论(0编辑  收藏  举报
努力加载评论中...
点击右上角即可分享
微信分享提示