delphi如何判断edit文本是否修改?
已知:1个edit控件,1个button控件。
我要实现的是:
运行程序后,
先点击button控件,输出消息:文本无修改。
然后edit控件输入:edit1.text:='123';,点击button控件,输出消息:文本被修改了。
追问:您这答案运行的话好像把edit1.text清空了在执行IF语句了啊
已知:1个edit控件,1个button控件。
我要实现的是:
运行程序后,
先点击button控件,输出消息:文本无修改。
然后edit控件输入:edit1.text:='123';,点击button控件,输出消息:文本被修改了。
追问:您这答案运行的话好像把edit1.text清空了在执行IF语句了啊
答案:之前初始化edit1.text:=''; if trim(edit1.text)='' then begin messgaebox(self.handle,pchar('文本无修改'),'提示',64); end else begin messgaebox(self.handle,pchar('文本被修改了),'提示',64); end;