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;

通过 Wiz 发布